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SUMMARY 


A method is presented for calculating the spanwise lift 
distribution on straight-wing/propeller combinations. The 
method combines a modified form of the Prandtl wing theory 
with a realistic representation of the propeller slipstream 
distribution. The slipstream analysis permits calculations 
of the non-uniform axial and rotational slipstream velocity 
field of propeller/nacelle combinations. This non-uniform 
field is then used to calculate the wing lift distribution 
by means of the modified Prandtl wing theory. 

The method utilizes non-linear aerodynamic section 
data for both the wing and the propeller blade airfoil 
sections and is applicable up to stall. The theory is 
developed for any number of non-overlapping propellers, on a 
wing with partial or full-span flaps, and is applicable 
throughout the aspect ratio range from 2.0 and higher. 

The analysis is programmed for use on the CDC 6600 series 
digital computer. The computer program is used to calculate 
slipstream characteristics and wing span load distributions 
for a number of configurations for which es^erimental data 
are available. Favorable comparisons are demonstrated between 
the theoretical predictions and the existing data. 
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PREDICTION OP SPAN LOADING OF 
STRAIGHT-WING/PROPELLER COMBINATIONS 
UP TO STALL 

by 

M. A. McVeigh, L, Gray, and E. Kisielowski 
UNITED TECHNOLOGY, INC. 

SECTION 1 
INTRODUCTION 


The propeller slipstream exerts an important influence 
on wing load distribution, which in turn affects the. aircraft 
stall characteristics. Ihis effect is introduced through an 
increase in local velocity over the slipstream- immersed 
portion of the wing and a change of wing local angle of attack 
due to slipstream rotation. While the increased velocity 
tends to stabilize the flow over that wing portion, the 
slipstream rotation may give rise to an asymmetric stall 
condition due to increased local angles of attack of the wing 
sections behind the up-going propeller blades, and reduced 
angles of attack of the wing sections behind the down-going 
blades. 


A review of the available technical literature indicates 
that there are no reliable theoretical or semi- empirical 
methods which can adequately predict the effects of a propeller 
slipstream on the spanwise load distribution of an entire wing . 
Many of the existing methods are suitable only for computing 
total wing forces since they are often based on gross simpli- 
fying assumptions. Thus, for example, an assumption that the 
slipstream- immersed portions of the wing can be treated as 
isolated planforms neglects the strong influence of the 
slipstream on adjacent wing regions. Other theoretical methods 
are generally classed as vigorous mathematical approaches which 
are usxially very complex and are frequently not in sufficient 
agreement with experimental data to warrant their use as a 
design tool. Fiorthermore , most of the above theories use 
lineap lift curves and as a result can not be expected to yield 
satisfactory agreement with test data near wing stall. 


The limitation imposed by the use of linear lift cvirves 
fbr the wing has been successfully removed in the work reported 
in Reference 1. Ihis reference presents a computerized method 
for predicting spanwise load distributions of straight-wing/ 
fuselage combinations at angles of attack up to stall. This 
method/ which is based on the Prandtl wing or "lifting line" 
theory as formulated by Sivells in Reference 2, provides 
a reliable analytical tool for predicting wing stalling 
characteristics of general aviation type aircraft, but is only 
applicable to power-off flight conditions, such as might be 
encountered during landing. 

The current investigation extends the analysis of 
Reference 1 to permit calculations of span loading and stalling 
characteristics under power-on conditions (e.g» take-off) for 
wings with or without flaps and having any number of non- 
overlapping propellers. The present method is based on employ- 
ing non-linear airfoil section characteristics for both the 
propeller and the wing. The basic analytical approach of this 
method is to retain the inherent simplicity of the Prandtl wing 
theory, modify the theory as required to accept non-uniform 
slipstream velocities, and effectively combine this modified 
lifting line theory with a realistic propeller theory to fom 
a unified analytical tool, 

A detailed description of this analytical method, 
together with the specially developed digital computer program 
is presented in the following pages. 
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SECTION 2 


GENERAL REVIEW OF TEIE ANALYTICAL METHODS 


The prime objective of the current development is to 
provide a practical analytical solution for determining the 
lift distribution and stalling characteristics of wings 
partially or totally immersed in a propeller slipstream. 

In order to depict some of the highlights of the cvirrent 
work relative to other approaches, this section presents a 
brief review of the existing analytical and experimental 
investigations that attempt solutions of the wing/propeller 
problem. 

2.1 STATEMENT OF THE PROBLEM 


The basic limitation in providing reliable solutions to 
the wing/propfeller problem is related to a lack of complete 
understanding of the flow field generated by the wing/propeller 
interaction under practical operating conditions. The problem 
is further compounded by the difficulty o*f developing realistic 
analytical representations of this complex flow field environ- 
ment so as to account for the major interaction effects acting 
on a wing/propeller combination. A complete solution to the 
problem must therefore accoiont for all these effects, which as 
a minimxm should include the following 

(a) Local wing angle-of-attack changes due to the mean 
inclination and rotation of the slipstream flow. 

(b) Non-\jniform spanwise distribution of velocity over 
those portions of the wing within the slipstream. 

(c) Non-uniform vertical distribution of velocity with- 
in the slipstream- immersed regions of the wing. 

(d) Viscous mixing between the slipstream and freestream 
flow along the slipstream boundary. 

In view of the real fluid flow effects involved it is 
unlikely that every aspect of the problem can be treated 
adequately, using the established analytical approaches. 
Historically, the approach has been to introduce a series of 
simplifying assumptions in order to arrive at a solution. 

^ese approaches are discussed below. 
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2.2 


REVIEW OF EXISTING SOLUTIONS 


The earliest treatment of the propeller slipstream 
problem is contained in the pioneering work of Honing 
(Reference 3) who treated the, simplified case of a wing 
centrally immersed in a circular uninclined slipstream of 
unifozm axial velocity without rotation. Honing applied the 
methods of lifting line theory to obtain a solution when the 
ratio of free stream velocity to slipstream velocity is 
close to unity. Ihis work was extended by Glauert (Reference 
4) and by Franke and Weinig (Reference 5) to a wider range of 
forward speeds. 

Stuper (Reference 6) conducted a series of ej^eriments 
to verify the predictions of Honing's theory by measuring the 
lift distribution on a rectangular wing with end plates under 
the action of a circular jet. Stuper used a specially designed 
fan to produce a jet without rotation and with a velocity 
cross-section which was approximately uniform. While the 
results of those experiments are somewhat impaired by the 
particular test arrangement used by Stuper, there is sufficient 
evidence to show that the Honing theory over-predicts the lift 
increase due to the jet. 

Because of the inability of the lifting line approach, as 
formulated by Honing, Glauert et. al., to satisfactorily 
predict experimental measurements, subsequent investigators 
assvjmed that the failure of the lifting-line theory was 
associated with the fact that the portion of the wing immersed 
in the slipstream was usually of small aspect ratio. Graham, 
et. al ., (Reference 7) therefore approached a solution via 
slender body theory and the approximate lifting surface theory 
of Weissinger (Reference 8) . Calculations made by Graheun 
showed improved agreement with Stuper ' s experimental data. 

Ribner and Ellis (Reference 9) generalized the Weissinger 
lifting surface formulation to multiple, uninclined slipstreams. 
Their results showed reasonable agreement with the experimental 
data obtained by Brenckmann (Reference 10) for the overall 
lift increase due to the propeller slipstream. 

The test results obtained by Brenckmann represent an 
improvement over the experimental data of Stuper in that the 
former experiments utilized an infinite aspect ratio wing, 
thus avoiding the use of end-plates which introduce uncertain- 
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ties as to the effective value of wing aspect ratio. Since 
Brenckmann employed a free propeller yielding a non-uniform 
slipstream velocity profile, the Ribner-Ellis theory, which 
assumes uniform velocity distributions, would not be ej^ected 
to yield adequate predictions of the spanwise lift distri- 
butions as compared with Brenckmann's measurements. 

Another series of tests of interest are those of Gobetz 
(Reference 11) and Snedeker (Reference 12) who employed a 
similar experimental arrangement to that of Stuper, in that a 
jet of air of approximately uniform velocity profile was used 
to simulate the propeller slipstream. These tests were 
designed to determine the basic effects of both wing aspect 
ratio and wing chord/slipstream diameter. The results were 
compared with theoretical calculations using the modified 
lifting-line theory of Rethorst (Reference 13) and it is 
shown that this theory is at least capable of predicting the 
trends of the test data. 

Goland, et. al., (Reference 14) formulated a mathematical 
model based on potential theory approach to predict overall 
performance and stability characteristics of small aspect 
ratio wing spanning a slipstream of uniform velocity. Although 
this work effectively combined the R. T. Jones small aspect 
ratio theory with the potential flow theory to yield good 
correlation with test data, no attempt was made to predict 
and correlate the wing spanwise load distributions. This 
work was extended in References 15 and 16 to provide equations 
and charts for estimating lift and longitudinal force 
coefficients of STOL aircraft wings immersed in propeller 
slipstreams. ^ 

George and Kisielowski (Reference 17) modified the work 
of Reference 16 to account for non-uniformity of the prop- 
eller slipstream. In this analysis the propeller slipstream 
velocity was represented by a number of concentric zones of 
uniform velocity (staircase functions) with the wing spanning 
the slipstream. Although satisfactory correlations were 
obtained between the theoretical and experimental test data 
for low and moderate wing angles of attack , the theory of 
Reference 17 did not adequately predict lift distributions 
close to the wing stall. 

In reviewing the above analytical attempts to solve the 
wing-slipstream problem, it is apparent that none of these 
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approaches is suitable for direct application to the present 
problem of predicting the effects of propeller slipstream 
on the stall characteristics of straight wing airplanes. 

Either the existing theoretical models are too simplified and 
disregard effects \diich are known to be critical, (e.g. 
Reference 6 and 13) , or the analyses are too complex and do 
not yield practical and reliable solutions (e.g. Reference 9), 
Therefore, there exists a requirement to develop an improved 
mathematical model capable of providing practical and reliable 
analytical solutions to the wing/propeller problem. 

The analytical methods developed under the current program 
potentially represent an answer to this problem. Although 
this optimism is based on a few isolated correlations with the 
available test data, sufficient indication of the effectiveness 
of the developed methodology has already been obtained, as 
confirmed by comparative results presented later in the text. 
The basis for this improved mathematical model is described 
below. 


2.3 BASIS FOR THE PRESENT ANALYSIS 


A common approach of past investigations involves an 
idealized representation of the propeller slipstream in 
which the velocity is discontinuous across the slipstream 
boundary. This model generally requires complex solutions to 
the boundary conditions associated with the discontinuity. 

The basis of the current analysis lies in the observation 
that in a real slipstream the velocity distribution remains 
continuous throughout the slipstream boundary. 

An examination of experimental data obtained on the 
velocity distributions in the wakes of propellers shows that 
there is no sudden jiomp in velocity across the slipstream 
boundary. There is, however, a rapid increase in velocity as 
the boundary is crossed but the continuity of velocity is 
still preserved. Since the lift distribution must be contin- 
uous and the velocity distribution is continuous,, then the 
associated circulation distribution must also be continuous. 
Therefore, the strength of the shed vorticity may be obtained 
by differentiating the spanwise distribution of circulation 
in the usual manner, without the complication of accounting 
for discontinuities in circulation. 
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The approach presented in the following pages utilizes 
a comprehensive propeller analysis to compute the slipstream 
flow field including swirl components of velocity. The wing- 
nacelle combination is then introduced into this flow field 
and the effects of the non-uniform propeller flow field on 
the wing lift distribution is computed using a modification 
of lifting line theory which permits the calculation of the 
low aspect ratio effects associated with the slipstream- 
immersed positions of the wing. 

The validity of the simple lifting line theory utilized 
herein for treating wings with non-uniform spanwise velocity 
distributions has been verified by applying it to a problem 
of linearly varying spanwise velocity gradients treated in 
a more general and complex manner by Fejer in Reference 18. 
The implementation of this lifting line theory to practical 
wing/propeller combinations is presented in Sections 3 and 
4 below. 



SECTION 3 


THEORETICAL ANALYSIS 


This section presents a summary of the analytical methods 
developed for predicting the propeller slipstream effects on" 
the spanwise load distribution of wings operating at angles 
of attack up to stall. The analytical approach presented 
herein is based upon first determining the velocity distribution 
in the propeller wake and then calculating its effect on the 
wing lift distribution. The analysis provides for the use of 
non-linear lift curves for both the propeller and the wing in 
order to realistically represent the propeller slipstream 
distribution and its effect on wing loading at angles of attack 
up to stall. 

Accordingly, the first part of this section deals with 
the propeller slipstream calculations, and the second part pre- 
sents the implementation of the slipstream parameters in the 
modified wing theory. 

3.1 PROPELLER SLIPSTREAM ANALYSIS 

The first part of the analysis deals with the propeller 
slipstream representation, including the required iterative 
solution and convergence procedures. 

3.1.1 General Propeller Solutio n 

Consider a propeller operating at an angle of attack dp 
to the remote freestream of velocity Vq , as shown in Figure 1. 

The presence of a lifting wing behind the propeller modifies 
the inflow to the propeller disk through an induced upwash 
velocity Vw . An an approximation this upwash velocity is 
assumed to be uniform across the propeller disk, and to lie within 
the disk plane. The method used for calculating this upwash 
velocity is presented in Section 4.2. 

For the purpose of analyzing the wing lift distribution 
it is assumed that the slipstream can be considered as being 
fully developed. With this assumption the average inclination 
of the contracted slipstream can be readily calculated using 
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simple actuator disk theory (e.g. Reference 19) and, in the 
notation of Figure 1, is obtained from 


tan 



Vo sin ap+ 

Vo cos Op + 2u 


( 1 ) 


where u is the axial induced velocity increment at the 
propeller disk. From momentum theory, u is related to 
propeller thrust, T, by 

u2 = 1 (2) 

2/3 7T r2 V’ 


where v' is the resultant velocity at the disk and is given by 


v' =>J {\/q cosap+uj2 + ^Vosin ap + Vw )2 


(3) 


On combining equations (2) and (3) a quartic in u is 
obtained and is generally solved by iteration. However, since 
the present application is to conventional aircraft where a p 
is small and < Vo this quartic may be reduced to a 
quadratic •vdiose solution is 


u 


c^s q p^z ; 


T 

2p 7tR2 


(4) 


With the above value of u,. equation (1) can be solved 
to yield the mean slipstream inclination a$/ relative to 
the freestream. 


To obtain the detailed velocity distribution within 
the inclined slipstream it is assumed that, to a good 
approximation, this can be obtained directly from the solution 
for an isolated propeller operating in axial flow at speed 


Vq = Vo cos Up 


(5) 


The calculation of non-uniform slipstream velocity 
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(Sistributions behind a propeller of arbitrary geometry is 
based upon established blade element-momentum theory as 
presented in Reference 20. While the solution to the 
general theory is very complex, a relatively simple and 
practical solution is obtained on the assumptions that the 
rotational energy in the slipstream is small compared to the 
axial energy and that the radial variation of static pressure 
in the slipstream can be. neglected. 

Standard blade element-momentim theory assumes that the 
flow is both incompressible and inviscid. Thus the flow in 
annular stream tube elements ,is treated in an independent 
manner. For any annular stream tube element, the slipstream 
velocities are related to both the induced velocities at the 
propeller disk and the radius in the fully contracted slipstream. 


Following the analysis of Reference 20, the induced 
axial and rotational velocity components, u, 1/2 wr, at any 
radius, t, in the propeller disk can be obtained by an iterative 
solution to the equations 

T _ cr / Cy I Cd \ (6) 

^ V cos ^ sin y 

and 

^ _ cr / \ 

^ V sin<^ cos ^ 

where, from Figure 2, the inflow angle, is given by 


<p = ton 



( 8 ) 


and the blade section lift and drag coefficients are known 
in terms of angle of attack, a, given by 


a = /3 - <p 


(9) 
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To account for the significant and well known loss of 
lift toward the blade tip equations (6) and (7) are rewritten 
in the form 


and 


w* 

2 

■ - i 


Cd 

(n-l- 

j 4F ' 

1 

V cos ^ 

sin (p 

u* 

O' 

/ C4 

Cd 

{fi-f 


\ sin (p 

cos^ 


ao) 


( 11 ) 


where F is the tip-loss correction factor given by Lock in 
Reference 21 and u* i/2(cu*r) are modified values of the induced 
velocity components. 


Equations (10) and (11) yield improved values of 
the inflow angle cf> and section characteristics and 

Cd / as affected by the tip- loss correction factor F 
These values are then used to obtain a better approximation 
for slipstream- induced velocity components u and ojr/2 / 
using equations (6) and (7) . 

3,1.2 Initial Calculation of Inflow Angle 

The iterative solution for the system of equations (8) 
through (11) requires that an initial approximate value of <j> 
be obtained. Equation (4) can be used if the propeller 
total thrust is known. However, since the propeller thrust 
is generally not known in advance, a method that yields a 
satisfactory starting value for cp is developed as follows : 

Prom Pigirre 2 the inflow angle <p can be ejqjressed as 




( 12 ) 


where the resultant induced velocity increment is assimied 
to bfe normal to the local blade velocity . 

On making the assumption that and ^ ^ 

equation (11) can be written as 
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cr V 

TfHT 


(13) 



r vnA. 

\ ar J 


By solving equation (13) for u*/i2r and substituting 
this value in equation (12) an initial value for <f> is 
obtained. However/ the right hand side of equation (13) 
must first be reduced to a tractable form. This is accom- 
plished by applying the following relationships: 

(a) A linearized expression for the blade section 
lift curve, given by 

Cji = Oq (^a-ao) (14) 

where Oq is a representative lift slope 
a is given by equation (9), and 
Co is the angle of attack at zero lift. 

(b) An ejqjression for V, obtained from Figure 2 as, 

V = y Vq 2 + (i2r)2 (15) 


(c) Prandtl's expression for the tip loss factor Fp 
obtained from Reference 21 as 

Fp = 4- cos-' [«p-[--|-(i-4)yi*(m)^ (16) 


where B is the number of blades 


Combining equations (12) through (15) and sub- 
stituting for the tip loss factor, Fp> given by equation (16) 
leads to the following esqjression : 


u* /Vq+u* _ g'Qo 

«Qr V Hr ~ ^ '^P 




(17) 


from which the soltition for u*/^ir is obtained as 
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( 18 ) 



The iterative solution to equations (8) through (11) 
is natxarally divergent within the normal range of the 
blade section lift curves. Therefore, convergence of the 
solution must be forced by applying a correction to each 
new computed value of <^ . A correction procedure which 

yields rapid convergence is derived by the method presented 
below 

Let the exact solution for inflow angle , <fi , be 
expressed as 

(f> = <?b' + 8, (19) 

where <jE>‘ is the value used as input to the iteration and 

S, is a small xanhnown increment. 

In the general iteration procedure, is first used 

in equation (9) to obtain a value of a from which and 
Cd may be determined knowing the blade airfoil section char- 
acteristics. Next, equations (10) and (11) are used to solve 
for u * and w* and these values are then sxabstituted in 
equation (8) to obtain a new value of inflow angle, denoted 
by . It is this new value of inflow angle which must be 

corrected before proceeding to the “n+T^h iteration. 

Therefore, let the exact solution for inflow angle, <jb , 
also be expressed as 
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— Sg 


( 20 ) 


v/here Sg is a second small unknovm increment. 

Combining equations (19) and (20) , to eliminate (f> , 

yields 

8, + 82= ( f >' (21) 


Substituting equation (21) into equation (19), there follows; 

^ TTlk/W 

Equation (22) forms the basis of a method for calculating 
an improved value of inflow angle for input to the next 
iteration cycle by using the guessed and calculated values from 
the previous cycle. The ratio, Sg/ 81 , remains to be determined 
from an approximate error analysis in the following manner : 

From equation (20) the value of tan is ejipressed 

to first order in 8 g by 


tan cf) = tan — 8g sec^ 


(23) 


From equations (9) and <19) the exact solution for 
blade lift coefficient, "C^ , is e>q>ressed in terms of the 

value calculated in the n^h iteration cycle from 


C£ — Cji oq 8| 


(24) 


where Qq is a mean value of lift-curve slope. 

Equation (10) written in terms of values for the exact 
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solution but with the assumption that , reduces to 



2 


CT Cj 

4 F cos 


kx 


(25) 


Substituting equations (19) and (24) into equation 
(25) , and retaining only first order terms in 8, , there 

follows: 



(26) 


where 

I _ O' Cj' 
•'x “ 4FC0S 


and where small changes in the tip loss factor are neglected. 
Similarly, equation (11) reduces to 


a CJ. 


^ )r 4 F sin ^ 


= ks 


(27) 


and, using 


equations (19) and (24), results in the expression 


ky = ky I - 8, 

where ‘ ( 28 ) 

k' ^ - 

4Fsin^' 

Now, using equations (25) and (27) , equation (8) can be 
expressed as 

tan <f> = fjL ^1 + kx) + ky ( 29 ) 
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where fx is the local forward speed ratio (Va /Xlr) 

Rewriting equation (29) in terms of the values kx,ky 
calculated in the iteration cycle yields 


ton 






+ kv 


(30) 


Combining equations (29) and (30) leads to the following 
relationship 


tan = tan </>" -^kx (l - ky 


(31) 


Finally using equations (23) , ( 26 ) , ( 28) and (31) a 
solution for the ratio S 2 /S 1 is obtained as follows: 


82 

Si 


cos 


0 " A^kx (-^-tan<^')+ ky +cot(/)') 


(32) 


Equation (32) thus provides the essential relationship 
by which equation ( 22 ) is applied to obtain an improved value 
of inflow angle for input to the next iteration cycle. In 
practice, the iteration procedure is terminated when the 
difference for each successive iteration cycle has 

converged to within a prescribed margin of error. 


3.1.4 Analysis for Slipstream Velocity Distributions 

Upon reaching a converged solution for the inflow angle 
<f> , the final values of cfi , Cji and Cj are then sub- 

stituted in equation ( 6 ) and (7) to solve for the true in- 
duced velocity components in the propeller disk plane, u 
and 1/2 (jjT . 


The local axial velocity component Vsq in the fully 
developed slipstream is obtained from Figure 1 as 


Vsa = 


Vo cos Up + 2u 
cos ^Up + QsJ 


(33) 
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The local rotational velocity component, Vst, in the 
fully developed slipstream is obtained from conservation of 
angular momentum and is given by 

Vst = (34) 


where r$ is the local radius in the slipstream for the 
streamtube element which has a local radius r in the 
propeller disk plane. 

The local radius ■'s for each flow element in the 
slipstream is derived from a simplified application of the 
continuity expression to successive streamtube elements. 

For the nth blade element station at radius rp the corres- 
ponding radius rs^ in the slipstream is given by 


rs 


2 

n 



+ 1/2 


m=n 


I( 

m=2 


'm 



^ Vq um-i 

Vq+ 


(35) 


where, in the notation of Figure 3, r| and '’S| are the 
values of hub and nacelle radius, respectively - 

^e value of •’Sn given by equation (35) is based 
upon representing the slipstream by a series of concentric 
annular streamtubes with uniform velocity between each element 
station. This solution, \diile approximate, is found to be 
more than adequate for all reasonable variations between u~ 
and Ur 
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m+1 



Propeller and Nacelle Axis 


Figure 3. Analytical Model For Slipstream Contraction. 


3.2 WING-IN-SLIPSTREAM ANALYSIS 


In the second part of the analysis a modified form of 
lifting line theory is presented which uses the nonuniform 
slipstream velocity distribution, as determined above, to 
calculate the lift distribution on wings with propellers. 

The approach presented relies on the use of a simple 
physical model to obtain a solution for wing- in- slipstream 
loadings for a wide range of real aircraft propeller- wing 
combinations . 

First the method is presented for an unflapped wing 
immersed in one or more non- over lapping slipstreams. Follow- 
ing this, the modifications required to include flaps are 
described. Finally, an extension of the analysis to include 
low aspect- ratio propeller-wing combinations is discussed. 

3.2.1 Analysis for a Wing with no Flaps 
or with Full- Span Deflected Flaps 

Consider the basic case of a wing in a uniform stream 
of velocity, Vo . if the local circulation is To , then the 
span load distribution at any spanwise station is given by 


*^0 P Ya ^ 


(36) 


The superposition of a propeller slipstream flow gives rise 
to an increased local velocity Vs' and an increased circulation 
Fg , vdiich can be expressed, respectively, as 


Vs' = Vo + Av (37) 

and 

Fs' = F) + AF (38) 

where Av and AF are the incremental changes in local 
velocity and circulation, respectively, due to propeller slip- 
stre^. Now the corresponding spanwise load distribution for 
the basic wing immersed in the propeller slipstream can be 
written as 


I = 


V ' 
''s 


F* 


(39) 
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Substituting equations (37) and (38) into equation (39) yields , 
a general ejqjression for the spanwise load distribution of 
a wing iitunersed in the propeller slipstream, as follows: 

p (Vo + Av) (Fo + Ar) ' 

= p (vo+Av) F) + /j (vo+Av) AF 

= p Vs Fo+/>Vs' AF (40), . . - 

= ^ Vs lo + ^ Vs la 

= + J.2. 


where Fa = AF is the change in wing circulation due to 
propeller slipstream alone. 

It can be noted from equation (40) that the first com-^ 
ponent Ji\ of the total lift distribution is that which would 
be obtained if the local velocity increased while the cir- 
culation Fo remained unchanged. If the circulation is un- 
changed, then there is no change in the trailing vorticity ‘ 
and therefore no change in the wing downwash field. The second 
term represents the change in spanwise lift distribution 

due to the circulation Fa and is therefore associated with 
wing downwash changes caused by the propeller slipstream. 

The problem of a wing immersed in the propeller slipstream 
is now reduced to proper determination of local values for 
the resultant velocity Vs' and the circulation F 2 for the 
entire wing. This analysis is developed below. 

For typical propeller/wing configurations, the resultant 
local velocity Vg' can be equated (within the small angle 
assumption) to the combined freestream and slipstream com- 
ponent along the wing section zero-lift line, thus 


Vs 



(41) 
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Using the nomenclature of Figure 4, this velocity component 
can be expressed as 


Vs = Vsa cos 


(as + Qe) - Vs^ 




(42) 


Also, the corresponding component of the total flow normal 
to the wing section zero-lift line is given by 

Vn = Vsg Sin (as + ae) + Vs| cos(a^ + Og) ^^3) 

■ ' i 

The quantitites ^o and Vs^ in the above equations represent 
the axial and swir'i velocity components of the combined freestresm 
and slipstream floW and are given by equations (33) and (34) 
respectively. Also, the angles as and ae are known quantities 
which represent inclinations of the slipstream and the zero-lift 
line relative to t|ie remote freestream velocity, respectively. 

The extra Jing circulation Tz , caused by the action 
of the propeller sjlipstream, is determined by equating the 
resulting change ip wing upwash to the downwash change associated 
with I 2 . This upwash change, in non-dimensional form, is 
defined as 


V 



sin Ug 


(44) 


Substituting equation (43) into equation (44) yields the 
extra dpwash due to the slipstream as 

V = sin (as + ag^ + cos (og + Og^-sin Og 

In order to satisfy the wing boundary condition of no 

flow through the sxurface, this extra upwash or crossflow must 

be balanced by the combined influence of the extra bound 

vorticity, Y '2 , and the associated streamwise (i.e. chordwise 

and trailing) vorticity, -dPe . 

— T — ay. 
dy 
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Observation of the lift on wings with slipstreams shows 
that the major portion of the extra loading caused by the slip- 
stream is concentrated on and near that portion actually immersed 
in the slipstream and, for most configurations, the "aspect ratio" 
of this immersed portion is small, usually about 1,0. It is 
herein postulated that the distribution of extra vorticity caused 
by the slipstream exhibits the characteristics of that found on 
low aspect- ratio wings. Kuchemann, in Reference 22, shows 
that for low aspect-ratio wings only the chordwise and trailing 
vortices are required to fulfill the boundary conditions. In fact, 
as the aspect ratio tends to zero, the trailing vortices cancel 
half the upwash, and the chordwise vortices cancel the remainder. 

In the present case, the net extra upwash is VqV 
and the downwash change due to the trailing vortices associated 
with the extra circulation. Fa / is given by 


Therefore, 


*ia = TF/' 


,b/2 
-b/2 

from the above 


dyi 

dy^ (46) 

y, -y 


considerations it follows that 


Wjg= 1/2 VqV (47) 

and hence 


V 


Equation (48) is supported by the analysis of Reference 23, 
which deals with the determination of the lift on a wing passing 
close to a line vortex. This reference states that lifting 
line theory always overestimates the lift induced by rapidly 
changing upwash fields (such as from propellers and line vortices) 
by a factor of 2, due to a corresponding underestimation of 
the wing downwash. 

Now, ejq>ressing the circulation distribution, 12, as a 
Fourier sine series in terms of the wing spanwise angular 
coordinate, 0=cos“'^^^ » yields 


I 


2 7TVo 


I 


b/2 


dF2 

dyi 




(48) 


-b/2 


y, - y 
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( 49 ) 


00 

Tz = 1/2 b Vo X Bp sin n0 
n = i 


Combining equations (48) with (49) and performing the 
required mathematical operations, the Fourier coefficients 
Bf, can be expressed as 


B 



4 

mr 



7T 

V sin 9 


sin n 9 d9 


(50) 


By limiting the series for I 2 to r-l terms, equation (49) 
becomes 


ram 


r-l 

= 1/2 b Bn sin n 

n=i 


rmr 

r 


(51) 


where m = I, 2, ••• r-l 

and equation (50) is reduced to the summation 


Bn 


_4 

nr 


r-l 


I 

m = l 


Vm sin 


mir 

r 


mir 
sin n —y 


(52) 


From equation (40) the lift associated with the slipstream 

may be expressed as 


— P ^2 


1/2 p Vo^ 0^2 C 


(53) 


where the lift coefficient is based on Vq . Therefore 


rz 


m 


1/2 b.Vo 


\ b Vs Jm 


(54) 
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Comparing equations (51 and (54) there resiolts 



Bf,- sin n 


kTT 

r 


( 55 ) 


If the relationship for the coefficients, is sub- 
stituted into equation (55) , the lift distribution associated 
with the slipstream is obtained in the form 



sin n 


kTT 

r 


n 


r-l 


'X Vm sin Sinn 
m = l 


mTT 

r 


(56) 


Having determined the lift associated with the slipstream upwash 
the overall wing lift is calculated as follows. 


Let Qi| and “igbe the induced angles of attached assoc- 
iated with the lift distributions and (£ 2 . respectively, 

as given by equation (40). Then the total induced angle of 
attack at any point k is given by 


°'k °'ik °'2k 


Also, re-expressing equation (40) in terms 
ients based on Vq yields 

(-b-)k=(-T-)K^(— A 

Using the multipliers )9mk from Reference 
there follows 

I , = I -I 

Now, by definition 



(57) 

of the lift coeffic- 

(58) 

1 in equation (58) 
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Adding Qizk to both sides of equation (59) and using equations 
(57) and (60) leads to 



r-i 


m = l 




) /Smk ( 61 ) 
/m 


Equation (61) gives the total induced angle of attack in 
tenns of. .the unknown wing lift distribution, Ct£c/b, the 
known induced angle of attack, < 2 j 2 =VQv/Vs, and the known slip- 
stream lift distribution, C^2 • given by equation (56). 

The solution is obtained by iteration as follows. 

An approximation to the overall lift distribution is 
calculated and equation (61) is used to obtain a first 
approximation to the induced angle of attack. The effective 
angle of attack at the wing section is obtained from 



Where Qgk is the section geometric angle of attack, *^ifok , is 
the section zero-lift angle and E is the edge-velocity factor 
of Reference (1). This value of effective angle of attack is 
then used with the two-dimensional section lift curves at the 
effective section Reynolds number Rgk to obtain the lift coeff- 
icient CjL . The value of C^c/b thus calculated is compared 
to the initial approximation and, if sufficient agreement is 
not obtained, a new value is computed using the method given in 
Reference 1. This iteration process is then repeated until 
guessed and calculated values agree to within prescribed 
tolerance. 

It should be noted that the above analysis is also 
applicable to a wing with full- span deflected flaps, provided 
that appropriate airfoil characteristics are employed for wing 
sections with flaps. 
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3,2.2 Analysis for a Wing with Part-Span Deflected Flaps 


The deflection of a part-span flap causes a disconti- 
nuity 8 in the distribution of absolute angle of attack at 
the end of the flap> and produces a corresponding discontinuity 
in the slipstream- induced crossflow, Ihe effect of these dis- 
continuities on the span load distribution is treated below. 

Ihe analysis is developed for a wing having a deflected 
part-span flap 8f extending from y=-b/2toy = y* 

The most general case is that of a flap vdiose end lies within 
the slipstream, as illustrated in Figure 5. 

Following the preceding treatment of a wing with no flaps 
or with full-span deflected flaps, the total wing lift distri- 
bution given by equation (40) can be divided into two portions 
and can be ejq>ressed in non-dimensional form as 




where C ./,2 C/b is the lift distribution associated with slip- 
stream-induced upwash and CJ,^ c/b is the remainder of the 
distribution . 

In the present case, however, the slipstream- induced 
upwash VqV , given by equation (48) , is discontinuous at the 
end of the flap as shown in Figure 5. The net discontinuity 
in crossflow at the edge of the flap, y = y* , can be obtained 
from equation (45) by considering the upwash on both sides of the 
flap end. Thus, using equation (45) for the flapped side of 
the wing, at y - y*-o , this extra upwash can be es^ressed as 
follows 


(as* + at+8) 
— Vq sin (^a% +8) 


+ V*t • cos 



+ a* + 8) 

(64) 
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the crossflow 


ie 

similarly, for the lanf lapped side at y=y+o , 
is given by 



(65) 


Ihe net discontinuity in crossflow is obtained as the difference 
between equations (64) and (65), thus 


Vo 




( 66 ) 


Because of the discontinuity in crossflow, Vq Av * , 
given by equation (66), the solution for the lift distribution 
Cj ,2 obtained from a simple Fourier series for 

l 2 , as was possible in equation (48). Therefore, the distri- 
bution Vo V is split into two portions, one a continuous dis- 
tribution Vq-v ' and the other a step function distribution 
Vq.v" , where - 


VqV = Vo V ' + Vo V " 


and 

VqV "= Vq A V * 

for 

-b/2 < y < y* 

(67) 


= 0 

for 

y *< y < b/2 



Now, it is necessary to relate the velocity distributions 
given by equation (67) to their corresponding circulation 
distributions. Since P 2 is the total circulation corresponding 
to Vo V , as given by equation (48), it can also be solit into 
two distributions, i.e.. Fa , corresponding to Vo v ' and Tz 
corresponding to Vov" , where 
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( 68 ) 


la = Fa + Pg 


Thus, using equations (48) and (68), the velocity 
distributions given by equation (67) can now be re-expressed 
in terms of the corresponding circulation distributions 
Fg’ and Fg" as follows ; 


vrt\ere 


and 


VqV = 


VqV ' + VqV " 


= j_ r 

27 T J 


b/2 


—dig 

dy, 


dyi 


-b/2 


yi -y 




-b/2 


(69) 


y, - y 


Vov' = 


27 T 


/ 


b/2 


dyi 


•dy, 


-b/2 y<-y 


(70) 


Vo V 


r 

~ 27 T J 


b/2 
-b/2 


-dFg“ 

dyi 


<^yi 


y, -y 


(71) 


Now the problem reduces to determining Fg' and Fg" 
and the corresponding lift distribution CJ,^- c/b • This is 
acconplished as outlined below. 
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since Vo.v' is continuous then, following the analysis 
of subsection 3^2..!, F 2 ' can be expressed as the simple Fourier 

series 


r-i 


Tz = -^ b Vo ^ Bp sin n0 


n =1 


(72) 


where the coefficients Bp are given by 


r-i 


®n = Z sin ^ sin n 


(73) 


m =1 m 


The relationship for F 2 " is obtained from the analysis 
of Reference 24 in the form 


2 Fz' 
b Vo 



r I -cos (9 ' 

1 I - cos {9-6 )J . 


(74) 


The distribution Fz'^ given by equation (74) satisfies the 
required discontinuity in the crossflow, Vo. v" = Vo. Av 
in equation (71) . 

The circulation distributions Fz' and Fz" , determined 
in equations (72) and (74) respectively, can now be used to obtain, 
the corresponding lift distribution ^J.z associated with 

the slipstream- induced upwash. This is accomplished by rearranging 
equation (54) and using equation (68), thus 


^<^2 _ /'Vs 

CM 


o 

> 

1 

V b Vo / 


= 

/ 2 F 2 ' 2F2"n 

(75) 

V Vo/ 

\ b Vo b Vo / 
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Finally, substituting equations (72), (73) and (74) into 
equation (75) yields the lift distribution 
any point k on the wing, in the form 



The above analysis gives the solution for the case vihere 
the flap extends from the left wing tip to a point y=y on 
the^right wi^g. Ihe solution for a flap extending between 
~y ^ y ^ y , or any other combination of flap positions, is 
obtained by superposition of solutions as shown in Figure 6. 

It should be noted that equation (76) represents only one 
part of the solution for the total lift distribution C^' c/b 
as given in equation (63) . It is now necessary to obtain an 
appropriate solution for the distribution c/b . This is 

accoinplished as outlined below. 

The discontinuity S in absolute angle of attach 
caused by the flap deflection also affects the distribution Q, c/b. 
This distribution,^ although continuous, possesses an infinite 
derivative at y = y . Therefore, the multipliers /3mi( developed 
in Reference 1 can not be used directly to obtain the induced 
angle of attack due to this distribution. This restriction is 
removed by the following analytical approach. 

The distribution c/b can also be divided into two 

portions, thus 


where C^"c/b8 is the lift distribution due to a unit 
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Distribution (a) 


(b) + (c) + (d) + (e) 


Figure 6 . 


Method for Superposition ^of Solutions 
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discontinuity 8 , and Cj,^ c/b , is the remainder. 

Applying the multipliers /Smk to equation (77) yields 
the following 




Also, applying the multiplers /3mk to equation (63) 
yields the total lift distribution Cj, c/b as 


I (-^) ^">1- / (79) 


Substituting equation (78) into equation (79), yields 


r-i - . I 


r-i _.M 






In order to obtain the iterative solution to equation (80), 
it is now necessary to relate the lift distributions given in 
equations (63) and (77) to their corresponding induced angle of 
attack distributions. If aj is the induced angle of attack 
distribution corrresponding to the total lift distribution 

c/b , and Cti| and 012 are the induced angle of attack 
distributions corresponding to the lift components Cj,^ c/b and 
Cc ?2 c/b , then from equation (63) there follows 


aj = Uj, + a;. 


Also, applying similar considerations to equation (77) theie 
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result.s 


Oi, = Oil + 0||" (82) 


Substituting equation (82) into actuation (81) yielcJs the 
relationship for the inducecS total angle of attack as follows: 

Qi = Qi|' + ®i|" + ®i2 (83) 

where a|J' = 8 over the flap span 

o outside the flap span 


It can be noted in equation (83) that the induced angle 
of attack distribution aij' must be continuous, since its 
corresponding lift distribution Cci,' c/b as given in equation 
(77) is continuous. Therefore, this induced angle of attack 
distribution is obtained directly using the multipliers, thus 


Oi 


I 

•k 



^mk 


(84) 


The above relationship can be re-ejq>ressed in terms of the total 
induced angle of attack distribution a-, by using equation 
(83), thus 


r-i 




Q|C 


m=i 



/3mk = 


“ik 




(85) 


Now, equation (85) can be substituted into equation (80) to 
eliminate the CJ,I c/b distribution and to yield the total 
lift distribution c/b in the desired multiplier form as follows 
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r-i 


I (-^) = ai, - ai,: - ai 

m=i rn .... 


'2k 




m=i 


Finally, rearranging the equation (86), the total induced 
angle of attack at any point k on the wing can be related to 
the corresponding total lift distribution and the know distribu- 
tions of induced angle of attack Cj, " and their 

corresponding lift distributions C,jj|"c/b and €^£2 c/b , respect- 
tively. The resulting relationship is 




r-i 




(87) 


m=i 


where from the analysis of Reference 1 


, C 

V“TT 


■). 



f I -cos (^k+^)l 
\ I— cos 


(88) 


and C^^gC/bhas been already determined in equation (76). 

Equation (87) is analogous to equation (61) developed in 
subsection 3.2.1 for no flap deflection. This equation is also 
solved by an iteration procedure, similar to that used for solvijog 
equation (.61). Thus, upon obtaining the required convergence of 
the iterative solution, equation (87) yields the total lift 
distribution C^l c/b for a wing wxth a deflected flap within the 
propeller slipstream. 
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3.2 »3 Extension of the Wing Analysis to Small Aspect Ratios 


To provide added flexibility to the methodology 
developed herein, the wing analysis treated in Sections 3.2.1 
and 3.2.2 is extended to include wings of small aspect ratio. 

This analysis is particularly useful for the current applica- 
tion, since much of the available test data on spanwise load- 
ings for wings in slipstream falls within the low aspect ratio 
ranges The correlations of this extended analysis with the 
corresponding test data where appropriate is shown in Section 5.0. 

The modification of the present analysis to small aspect 
ratio wings is based on the wing theory of Kuchemann (Reference 22), 
as outlined below. 

In equations (61) and (87) a set of multipliers was 
used to obtain the induced angle of attack distributions for 
a wing with no flaps and with part-span deflected flaps, 
respectively. These multipliers were obtained from the fund- 
amental equation of the high-aspect-ratio, lifting-line theory 
which expresses the induced angle of attack in terms of the span 
loading , 


a: = 


b 

87T 


/ 


b/2 


-b/2 


d (Cj c/b) 

y, -y 


dyi 


(89) 


Kuchemann, Reference 22, has shown that this equation may be 
generalized to wings of any aspect ratio by writing 


a\ 


(Jb 

87T 



d (C^j^c/b) 


y, -y 


(90) 


where a»' is a factor which varies between 1 for high aspect 
ratio (ar-»co)» and 2 for low aspect ratio (AR—^O) 
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( 91 ) 


Kuchemann obtained the following equation for w' 

r 4 1 "'/^ 

“ = 2 - [' 

If the multipliers ^ mk are rederived using equation (91), a 
new set of multipliers, , is obtained related to the old 

set by 

^mk = ^mk (92) 

This new set of multipliers ^mk may then be used to calt 
late induced angle of attack throughout the entire aspect i^tio 
range . 


Ihe second equation that must be modified is that which 
defines the edge-velocity factor E. In Reference 1, this 
quantity is given by 


Qe -Qq 
do - a^o 



Oo 

Q 


(93) 


where Oo is the two-dimensional lift curve slope (AR-»oo)and 
a is the corresponding value for finite aspect ratio. 


Reference 22 presents an expression for the ratio of the lift 
curve slopes as 


ao 


a 


2- wJ cot (^) 
2 cu' 


where co' is given by equation (91), 


(94) 
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Thus, substituting equation (94) into equation (93) 
yields the edge-velocity factor E. applicable to all values 
of aspect ratio as 


E 


2 — 7T Cl)' cot 

Zo? 


(95) 


In the extended analysis equation (95) is used in place of 
equation (93) . 

Finally, the ejq>ression for the lift distribution asso- 
ciated with a discontinuity in induced angle of attack, as 
given by equation (88) ,must be modified in the following form 



Equation (96) is now applicable to any value of aspect ratio. 
This equation is implemented in the computer program and extends 
the program capabilities to wings with low and high aspect ratios 
ranging from about 2.0 to infinity. 
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SECTION 4 


DIGITAL COMPUTER PROGRi^ 


The theoretical analysis presented in Section 3 was 
prograitimed for use on the CDC 6600 series digital computer. 
This was accomplished by extensively modifying the computer 
program of Reference 1 to include the propeller slipstream 
and the wing in- si ip stream analysis. 

This section presents a description of the combined 
computer program logic, the selection and assembly of the 
pertinent airfoil section characteristics, and a sample 
computer output. Wherever appropriate, the discussion is 
directed towards those features of the modified program that 
are directly relevant to the treatment of the propeller slip- 
stream and its effect on the wing spanwise loading. Addition- 
al information pertaining to computations of the wing loading 
for a basic wing/fuselage combination can be obtained from 
Reference 1. 

4.1 PROPELLER SLIPSTREAM COMPUTATIONS 


This subsection presents the methodology and the associated 
airfoil section data used in computations of the propeller 
slipstream velocity distributions, which are later implemented 
in the overall solution for the wing spanwise loading of a 
general wing/propeller combination. The basic computational 
steps for implementing the slipstream velocity distributions 
into the wing analysis are sxjinmarized in subsection 4.2 

The essential steps in the propeller slipstream solution 
are given below. 

4.1.1 Computational Procedures for Propeller Slipstream 

Velocity Distributions 

(a) Calculate the propeller angle of attack and tip 
speed ratio from 

Qp = Qb + 'TL (97) 
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= 


J cos a p 

TT 


( 98 ) 


(b) At each selected station on the propeller blade 
obtain local values of the solidity, blade speed ratio and 
inflow angle from 


cr 


B Cp 
2 ttT" 


( 99 ) 


/A 


J cos Op 
7 T T 


( 100 ) 


</>0 


-I 

ton fj. 


( 101 ) 


(c) obtain an approximate solution for the tip loss 
factor using 

Fp = 4 cos-' [oxp{- (l + (t:?)*}] 

(d) Calculate an initial value for the quantity 
( u*/>f^r) from 

= -i-[y(/^ + k/ +4I> (^-</>0 -a^„)-(/i*k)j(103) 


where, by definition 
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and Do* Qjio are the lift-ciarve slope and angle of attack at 
zero lift, respectively, for a linearized approximation to 
the tabulated airfoil section characteristics. 

(e) Compute an initial inflow angle at each blade 
element station from 

ic 

<f> = U05) 


as 


(f) Obtain an initial value for the quantity defined 


(ir) 

(.tr) 


(106) 


(g) As the first step in the basic iteration routine, 
calculate a better approximation for the tip loss factor from 


where F/Fp is obtained by interpolating the results from 
the tip loss correction tables for specified values of B,7" 
and sin • A listing of the tip loss correction tables stored 
and utilized by the computer program is presented in Appendix A. 

(h) Calculate the blade section angle of attack and the 
blade section Mach number from 

Qb = yS - 

Mo 7T T (108) 

Mu = ^ 

J (I + ky^) COS Up 
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Then obtain the section characteristics Cj, and Cd by inter- 
polation and/or extrapolation of the data presented in the 
propeller airfoil tables, for the specified airfoil section 
geometry and values of at, and My . 

(i) Compute the following quantities defined as 


cr 

■ CJi 

+ 

Cd ■ 

j (109) 

4F 

1 cos </>' ; 

sin<^' 

<T 

r 


Cd 1 

(110) 

1 

4F 

L sin <f>' 


cos </>' J 

fj. (l 

+ kx) 


ky 

(111) 


and then calculate a new value of from 

</>" = ton * kz (112) 

(j) If the absolute magnitude of ( 0.1 degrees, 
then the solution for requires reiteration. In this case the 

value of ^ to be substituted for in steps (g) through (i) 

is obtained from 

4 > = 4 >' +(sb“-./>') 
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where kc is given by 



(114) 


(X) If the absolute magnitude of < 0.1 

degrees then the final slipstream velocity components for the 
streamtube element passing through the specified blade element 
station are determined as follows. First, calculate the true 
induced axial velocity ratio in the propeller disk plane using 



2 


[/ 


fT- + 


4 F ky kz 

(I + kx}2 



(115) 


and then obtain the axial velocity ratio in the fully con- 
tracted slipstream from 


'sa 


V 



(116) 


(1) Obtain the local radius in the fully contracted 
slipstream vdiich corresponds to the specified blade element 
station from 



C 


t2. 



+ 


Vq 


^Sa 




(117) 


v^ere rsp , rp and ^sop /Vq are the values corresponding to 
the immediately preceding inboard blade element station. The 
velocity ratio at the outer slipstream boundary is taken as 
unity, as is that at the hub/nacelle boundary unless a blade 
element station is specified at the hub. 
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(m) Compute the tangential velocity ratio in the 
fully contracted slipstream as 


Vst _ 2 / u \ f 

Va ~ ^ / ky T; ( 118 ) 


(n) Having obtained solutions for the flow corres- 
ponding to all propeller blade element stations m=1 (at 
the hxjb) through m = M (at the blade tip)/ calculate the 
value of the integrated propeller thrust coefficient from 


CT = I 

m=2 


( 119 ) 


Where 


d Op 
d T 



F ky kz 
(' 


( 120 ) 


(o) Obtain the momentum value of propeller thrust 
coefficient from 


^Ts 


[ 


7t 3 Mr 2 

{8 Cj) 


( 121 ) 


(p) Compute the integrated propeller torque 
coefficient using 


where 


(123) 


dCQ _/ r F" kx kz 

dT “V V 2 (l + kx)2 


(q) Calculate the value of the momentum-weighted 
average axial velocity ratio in the fully contracted slip- 
stream from 


Vso ^ / 8 Cj (124) 

Vq V ' ^t-2 


4.1 »2 Propeller Blade Section Characteristics 

The analytical methods developed herein require that 
suitable aerodynamic characteristics be employed for the 
blade sections of propellers used on general aviation-type 
aircraft. The information on typical blade sections was 
obtained from the available technical literature and is 
summarized in Table I. 

As can be noted from this table, early blade sections 
used in typical propellers are of the USNPS and Claris Y 
airfoil series. These sections have very similar profiles 
and members of each series are uniquely identified by the 
value of thickness/chord ratio alone. 

Later blade sections are of the NACA 16-series family, 
which have a wider application in modern propeller design 
because of their superior low-drag characteristics (see 
Reference 25) . These considerations also apply to the use 
of NACA 64 and 65 airfoil series. All of the latter air- 
foils are specified in terms of both a design lift coefficient 
and a thickness/chord ratio. 

Based on a review of published e>^erimental measurements 
of propeller airfoil section characteristics, it is evident 
that the most reliable data for the current application 
can be obtained from tests conducted in three wind tunnel 


48 



Table I 


Typical 


Airfoil Series 

Design Lift 
Coefficients 

USNPS 

- 

Clark Y 

- 

NACA 16XXX 

0.2 to 0.7 

NACA 6 4 -XXX 

0 to 0.2 

NACA 6 5 -XXX 

0 to 0.2 


Blade Sections 


Thi ckne s s /C ho rd 
Ratios 

References 

0.05 

to 

0.35 

29 

0.07 

to 

0.50 

17,30,31 

0.04 

to 

0.40 

17,30,32,33,34 

0.07 

to 

0.26 

35 


0.04 to 0.40 


35 

35,36 











facilities only. These are the Langley Low Turbulence 
Pressure Tvinnel (Reference 26), for section data at low 
speed conditions (M^O.15) , and both the Langley and 

Ames High Speed Wind Tunnels (References 27 and 28, respect- 
ively) for section data at high speeds (0,3 < M<0.85). 
Experimental data available from tests in these facilities 
were therefore used as the basis for preparation of the 
required section characteristics for all selected airfoils 
with the exception of the USNPS and Clark Y series. The 
section data for the latter two airfoils was generated from 
the measurements obtained in the Langley Variable-Density 
Tunnel . 


Application of the present analytical methods requires 
information on the two-dimensional behavior of both lift and 
drag for the specified blade airfoils. However, an import- 
ant simplification in preparing these airfoil characteristics 
is realized through the use of a constant value for drag 
coefficient on the basis of the following approximation. 

From the propeller analysis it can be noted that the 
contributions of the blade section drag coefficient Cd to 
the axial and swirl velocity components in the slipstream 
are given, approximately, by (Cd/Ct/)tan c/) and (Cd/Cj.) cot <f> 
respectively, where <p is the inflow angle. For low speed 
flight conditions appropriate to general aviation type air- 
craft, the contributions of blade section drag to the local 
axial velocity component in the slipstream are found to be 
negligible, whereas the contributions to the local swirl 
velocity are typically not more than a few percent. Thus it 
is considered a justifiable simplification in the computer 
program to substitute a representative constant value for Cd 
in place of the actual variations as a function of angle of 
attack and Mach number. 

It is thus evident that realistic application of the 
propeller- slipstream analysis demands that selected data on 
blade section lift characteristics be acciorately defined as 
a function of local angle-of-attack and Mach number for those 
typical airfoil sections identified above. 

Table II summarizes the airfoil sections for which 
aerodynamic characteristics have been obtained and identifies 
the source references. In general it is apparent that insuf- 
ficient data exist to enable a thorough coverage of all the 
possible variations in section geometry, angle-of-attack and 
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Table II. Summary of Propeller Airfoil Sections 

Tabulated for Use in the Computer Program 


Airfoil Series .Thickness/Chord Ratios in Percent 


Mach No . 

Source 

Range 

References 

0.07 

37'; 

■'b.07 

3Q . 

0.3 to 0.8 

39 

0.15 

40,41 

0.15 

40 


usNPs : 

Clark Y - 


NACA 161XX 
163XX 
165XX 
167XX 

NACA 64-OXX 
64-2XX 
64-4XX 


NACA 65-OXX 
65-2XX 
65-4XX 














Mach nvunber range. Accordingly a number of simple empirical 
techniques have been developed to permit a reasonable extra- 
polation of the available data, as will be discussed later 
in the text. 

Furthermore, in preparation of the final section 
characteristics, faired curves of the e3q>erimental Cj, versus 
a were utilized. The data was carefully selected so as 
to best define the non-linearities in the faired curves. In 
general the data represents the full range of the ejqjerimental 
measurements extending from the zero lift condition to a 
point close to stall and in most cases through the stall, 

A complete computer listing of the tabulated section 
characteristics for the propeller airfoils listed in Table 
II, is presented in Appendix B, The airfoil tables are 
arranged so as to provide the maximum flexibility in their use 
in the computer program. These tables can be easily extended 
or deleted to include other airfoil families or specially 
modified aerodynamic characteristics of the selected sections. 

These tables form the basis for look-up procedures 
wliich through interpolation and extrapolation of the stored 
data provide the required values of CJ, for specified 
blade sections. These table look-up procedures are described 
in detail in the next subsection. 


4,1,3 Table Look-Up Procedures for Propeller Airfoil 
Character istics 


Ihe propeller airfoil data tables are read in and 
stored by the computer immediately prior to execution of the 
propeller-slipstream calculations. The computer program 
provides data tables for up to 9 airfoil families, identified 
by an airfoil series code between 1 and 9 inclusive, but is 
capable of accepting a maxim\jm of 150 tables. This storage 
capacity is considered more than adequate under most cir- 
cumstances but could be extended, if required, by an internal 
program change. As a rule the only tables read in will be 
those sets corresponding to the blade sections of the prop- 
eller-wing configuration being evaluated. 

Each table, as it is read in by the computer, is 
indexed consecutively in order to permit efficient operation 
of the look-up procedure. For proper utilization of these 
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data tables, it is essential that they be assembled in a 
special order. Ihe assembly of all tables for each given 
airfoil family must be in ascending order of Mach number, 
thickness/chord ratio and design lift coefficient. However, 
the sets of tables for any airfoil family may be assembled 
in any order. 

As an initial step in the table look-up procedure, 
the computer program first searches through the tables to 
locate and index those particular tables required for inter- 
polation as each propeller blade element station is specified. 
The actual look-up procedure utilizes linear interpolation 
throughout and is performed first for the required value of 
a / secondly for the value of ^fech number, thirdly for the 
section thickness/chord ratio and finally for the design lift 
coefficient of the airfoil family specified. 

To permit satisfactory operation of the computer 
program for conditions outside the range of the data tables 
a series of simple extrapolation procedures have been developed 
empirically from the available experimental data. These pro- 
cedures are outlined below. 

For angles of attack outside the tabulated range in 
each table it is assumed that the value of Cj_ remains 
constant, and for a Mach number outside the given range the 
extrapolation procedure determines a correction to the required 
value of a , defined as Oc > thus 


°c = Qot + (cJ - “oj) / J (125) 

V I - 

where the subscript T denotes values for the table to be 
extrapola ted . 

This method is based on an application of the standard 
Prandtl-Glauert rule for the change in lift-curve slope with 
Mach n\jmber and assumes that the extrapolated family of lift 
curves can be represented by a simple adjustment of the angle 
of attack scale about a© point. 

For section thickness/chord ratios outside the given 
range of tables at each value of design lift coefficient it 
is assumed that the airfoil characteristics will be invariant. 
While this assumption does not satisfactorily represent the 
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general reduction in lift-curve slope for thick sections; 

(t7c > 0.2) the existing data does not provide, a base 
for a better approximation. 

For a section design lift coefficient Cjl^ outside 
the tabulated range, an extrapolation procedxare is used to 
obtain a corrected value of Cd defined as C(£q , thus 

< . ’’ ■ 

^dj + J \ -U^ . (126) 


where the subscript T denotes values for the table to be 
extrapolated and is an empif ical constant which 

generally varies for each airfoil family and thickness/chord 
ratio. This constant has been determined for each airfoil 
family used herein, and constitutes an inherent part of the 
computer program table look-up subroutine. 


4.2 WING IN- SLIP STREAM COMPUTATIONS 

This subsection presents the method of implementation 
of the propeller slipstream distributions obtained above into 
the spanwise load calculations of a propeller/wing combination 
The essential computational steps are described below. 

4.2.1 Computational Procedures for Spanwise Loading on a 

Wing with no Flaps^ or with Full- Span Deflected Flaps 

(a) Obtain the wing basic geometric parameters namely,^ 
section chord ratio , twist distribution e , 

thickness-chord ratio t/c , and camber distribution. Then 
calculate the wing section Reynolds number Re based on the 
local chord c and the local resultant velocity V , thus- 

V c ^ 

Re.= ^^ (127) 

where V is the combined freestream and slipstream velocity 
given in equation (3) and v is the kinematic viscosity. 
Also, obtain the section zero-lift angle 


(b) Compute the wing-induced upwash function, f 


$ 



from the following . equation ^l^hich is based on a simple horse- 
shoe model of the wahe (Reference 19) 


A 

>-yp) 

;v7p) 

'/xp (%+^p) '/’"p 

^ + Tp^ Tp^ 


^+Tp2 -~p 


(74^ yp) 

In/(%+Tp)^ +Tp^ 

_ / 


+ "Xp^-Tp 



(128) 


where Yp = 2yp/p and Xp 


= 2 Xp/b 


are the non-dimensional spanwise and chordwise locations of 
the right-hand propeller hub. 

(c) Calculate the geometric angle of attack at each 
■ wing station from 


= QB+ Or+ € + Aefg+ C bT (129) 


where 


as 

Or 

€ 


is the fuselage angle of attack 
is the wing/fuselage root setting 
is the local geometric twist 




T correction factor for fuselage 

upwash given in Reference (1) and A is the setting of the 
equivalent chord line of the nacelle above the wing chord 
line at the nacelle station. The quantity A is only to 
be included when a computation station coincides with *the 
nacelle location. 


(d) Calculate the following initial approximation to 
the overall wing lift coefficient 


Cl 


APPROX 
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•(e) Con^JUte the wing- induced upwash at the propeller 
disc using equation (128) as follows: 


Vw = 


APPROX, f 
7 t2 AR 


U31) 


(f) Calculate the propeller thrust-line angle of 
attack and average inclination of the propeller slipstream 
to the free stream from 


Up 


Ub + i 


TL 


ton- I 

I Vsa J 


(132) 

(133) 


where 'TL is the propeller thrust-line angle relative to the 
fuselage centerline. 

(g) At each "Wing station calcvilate the effective angles 
of attack/ the resultant local slipstream velocity, V , 
and the non-dimensional slipstream upwash, v , from the 
following equations: 


Qe = Og - 

V = Vsa / cos (^Op + Os) 

V = sin (os + 

— sin Ue 


(134) 

(135) 

(136) 


Ch) Calculate the distribution of lift due to slip- 
stream upwash c/b using equation (56) . 

(i) Using the effective angles of attack, Qe / 
computed from equation (134) find the values of section lift 
coefficient, , from the two-dimensional section data 

at the proper values of Reynolds number, thickness— chord 
ratio and camber level. 
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(j) Calculate an initial approximation to the spanwise 
loading distribution using 

% = (^) (^) 

where X is the wing taper ratio . 

(k) Compute the values of induced angle of attack 
for this load distribution using equation (61) and determine 
the resultant section angles of attack from equation (62) . 

(l) Prom the section data obtain the values of lift 
coefficient corresponding to the resultant angles of attack 
from step (k) and calculate the new values of the span load- 
ing , Zji c/b . 

(m) Compare the approximate values of span loading 
with the calculated values. If these are not in sufficiently 
close agreement/ compute a new set of approximate values of 

Cc/ c/b using the proced\ores presented in subsection 3.2.2 
of Reference 1. Repeat the iteration process lantil the required 
convergence is achieved. 

(n) Integrate the new span load distribution to obtain 
the overall wing lift coefficient Cj_ and calculate a new 
value of wing-induced upwash at the propeller disc using 
equations (128) and (131) . 

(o) Repeat steps (f), (g) , (h) , (x) , (k) , (1)/ (m) , 

(n) xmtil the approximate and calculated values of span 
loading are in satisfactory agreement. 

(p) Having determined the lift distribution obtain 
the section profile drag and pitching moment values from the 
section data and calculate the overall wing lift, drag, and 
pitching moment coefficients. 


[-F+O+V'-C-f-)' 

(137) 


4.2.2 Computational Procedures for Spanwise Loading 
on a Wing with Part- Span Deflected Flaps 

(a) Calculate an initial approximation to the flapped 
wing lift distribution from the following equations 
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c 

b 


U38) 


= i '=<«R (-4) V ‘ 

where is the value of the lift coefficient at the root 

obtained from the flapped section data at the angle of attack 


a = ag + Or 


(139) 


(b) Determine the uncorrected values of lift coeffi- 
cient at each flap end as follows 




u 


Cfi'C / b \ 

b \ c y fF 


(140) 


where FP is the correction factor which accounts for the 
change in the two-dimensional section data at the flap end. 
The calculation procedure for obtaining these correction 
factors is described in detail in subsection 4.1.3 of 
Reference 1, and will not be duplicated here. 

(c) For the values of obtained in step (b) 

above obtain the corresponding angles of attack oEq from the 
data for flapped sections-* Calculate the corresponding cor- 
rected angles of attack Ocg at each end of the flap from 

cic S = E* FF (oo - a^o) + (141) 


(d) Using the same procedxare as in step (c) above, 
calculate the values of angle of attack ®cS=o on the 
unflapped sides of the wing. Then obtain the first approx- 
imation for the values of the discontinuities in angle of 
attack S , thus 


S — ctc3=o~®cg 


(142) 
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(e) Integrate the lift distribution given by equation 
(138) to obtain an approximate value of the overall flapped 
lift coefficient^ C|_ , and using equation (3), determine 

the wing- induced upwash at the propeller disc. Then calculate 
the value of slipstream inclination, Og / using equation 
(5). 


(f) Using the values of 8 and <2$ from steps (d) 
and fe) , respectively/ calculate the distribution of slip- 
stream crossflow from the following equation: 


V 




— sin tte 


(143) 


and use equations (64) and (65) to determine the discontin- 
uities in crossflow Av* = v*' . 

NOTE t In the most general case of a wing having two 
propellers, (one mounted on each wing panel), rotating in the • 
same direction, the slipstream- induced crossflow distribution 
will be different at the same spanwise station V on each 
side of the fuselage centerline. This difference is caused 
by upward slipstream swirl velocities on one wing panel and 
downward on the other, occurring at the same spanwise stations 
on each side of the fuselage, i.e. m iy) ^ v (-y) . In the , 

case of two propellers rotating in opposite directions, each 
slipstream- induced crossflow is symmetrical about the fuselage 
centerline and equation (143) need only be applied once, 
since V (y)= v(-y) . 

(g) Using the appropriate values of the discontin- 
uities 8 and Av =v'^ from steps (d) and (f) , respectively, 
compute the lift distribution Ctf^.c/b using equation (76), 

NOTE I For the most general case, as discussed in step 
(f) above, this lift distribution must be calculated separately 
for each wing panel . 

(h) Determine the lift distribution -c/h , 

corresponding to the left and right spanwise discontinuities 
from equation (88) , 
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(i) Calculate the overall induced angle-of-attach 
distribution dj from equation (87), using the approximate 
span load distribution computed in step (a) above. 

(j) Compute the effective resultant section angle of 
distribution from the following equation 


a. 


ag-oi+aj-a^o 



(^c£max) 0^ 


E 


Cd^mox 
(^^t^max) 0 


(144) 


vhere ag is the geometric angle of attack, Cjj^max is the 
value of C(£rnax obtained from the corrected section data and 
is the uncorrected value of ^(Jmax • 

(k) Using the values of ae from step (j) above, 
obtain the corresponding values of lift coefficient Cc^o from 
the uncorrected two-dimensional section lift data. Then 
determine the correct values of lift coefficient by scaling, 
as follows: 




max 

{^^(^max ) o 


(145) 


(l) Calculate the distribution C^^-c/b from (145) and 
compare this calcvilated distribution with the approximate 
distribution. If agreement between the distributions is not 
sufficiently close, calculate a new and better approximation 
using the procedures presented in subsection 3.2.2 of 
Reference 1, 

(m) Repeat steps (b) through (1) above, until agree- 
ment is reached between the approximate and calculated values 
of the span load distribution. 

(n) Having determined the lift distribution in step 
(m), calc\alate the corresponding value of the overall inte- 
grated wing lift coefficient Ci_ , 
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4.2.3 Wing Section Characteristics 


The wing airfoil section characteristics for typical 
general aviation aircraft are presented in Section 4.2 of 
Reference 1, and will not be duplicated in this report. 
These characteristics are used directly in the current 
computer program and constitute a part of the overall tool 
for prediction of stalling characteristics of general wing/ 
propeller combinations. 

4.2.4 Table Loo!k-Up Procedures for Wing Section 
Characteristics 


The table looTc-up s\ibroutine for wing section charact- 
eristics used in the current program is identical to that 
described in Section 4,2 of Reference 1. 


4.3 DESCRIPTION OF THE COMPUTER PROGRAM LOGIC 


The computational procedures described in Section 3.0 
have been programmed for use on a CDC 6600 series digital 
computer. The program user instructions are given in Appendix C. 
The flow diagram for the program is shown in Figure 7 and a 
listing of the program is presented in Appendix D. The 
program was accomplished by an extensive restructuring and 
enlargement of the basic power-off wing stall analysis pro- 
gram contained in Reference 1. 

The program is initiated by reading in the basic 
wing- fuselage configuration parameters . In this input 
format, provision has been made to include an increment 
representing the drag coefficient of the nacelles. If the 
calculations are to be performed for the power-on case this 
is indicated to the program by setting the parameter NSLIP 
equal to 1. If NSLIP=0, the slipstream calculation loops are 
bypassed and the program only computes the power-off charact- 
eristics. 

The computer program arrays are dimensioned to enable 
calcxalations of the span loading to be made using 10 control 
points per semispan. 

For twin propeller aircraft computations where the 
propellers are situated near the center of each wing panel or 
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Figure 7 • Computer Program Flow Diagram 
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END 















at the wing tips, this nvunber of wing control stations is 
adequate. However, for single propeller configurations, a 
better definition of the span loading in the slipstream 
region is obtained if the number of control stations is 
doubled to 20 per semispan. This is readily achieved by 
redimensioning the required arrays. 

Having input the basic data, the required wing section 
data tables are read in and stored on tape . If the case is 
for a wing with fuselage the required transfomation para- 
meters are computed. The list of fuselage angles of attach 
is now read in and the first value in the list is selected. 

If the computation is to be performed for a power-on case the 
propeller slipstream subroutine is then called. 

Execution of the slipstream subroutine shown in 
Figure 8 is initiated with input and storage at the propeller 
tip loss correction factor tables. This is followed by 
reading and .storing the required blade section data tables, 
together with the data specifying the basic propeller geometry 
and operating condition. Ihe program then proceeds with the 
main computations as the parameters for each successive 
blade element are read in. For each blade station, the solu- 
tion for blade section angle of attack and lift is iterated 
to convergence. The velocity components for the corresponding 
streamtube element in the contracted slipstream are then com- 
puted, Finally, having obtained the complete velocity 
distribution for the slipstream, the slipstream velocities 
at the wing control stations are determined by interpolation 
before returning to the main program logic. 

Having calculated the slipstream velocity distributions 
the wing upwash function and the induced angle-of-attack 
multipliers are now computed. If a part span deflected flap 
is present the parameters associated with the spanwise discon- 
tinuities are calculated together with the factors used to 
correct the two-dimensional section data. 

The matrix of coefficients Kjj used in the iteration 
procedure is now computed and stored. If the calculations 
are to include slipstream effects, the slipstream inclination 
to the frees tream, the slipstream upwash function, v , 
and the loading associated with this upwash function, Ct^2 c/b, 
are computed. 
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The central program iteration loop is now entered. A 
new lift distribution is computed and compared to an approx- 
imate input .value. If convergence is not achieved a new and 
better approximate value is computed. If slipstream effects 
are being considered, this new lift distribution is used to 
recalculate -the upwash at the propeller discs and a modified 
slipstream inclination is obtained. A new upwash distribution 
is calculated and the basic iteration loop reentered. 

Once convergence is obtained, the program computes 
and prints out the overall wing integrated values of C|_ , 

Cd , etc. together with the distributions. If stall is 
detected at any wing station, the program enters a routine to 
select values of fuselage angle of attack that will define the 
exact stall angle more closely. 


4.4 SAMPLE OUTPUT 

A typical output obtained frcm the computer program, 
as described above, is presented in Tables III and IV. Table 
III shows sample computations for the spanwise lift distri- 
bution on a wing-in-sl ipstream, whereas Table IV presents 
a sample output for the slipstream velocity distribution used 
in the wing computations . 
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Table III - Sample Output for Lift Distribution on 
a Wing - In - Slipstream 


LR 284 AR-3.0<^ WITH SS CT*»*0.64 


body angle of attack, DtG. 

eOOY HEIGHT / SPAN . . • . 

ASPECT RATIO 

WING BODY INCIDENCE, DEG • 
ROOT THICKNESS CHORD . . . 
NUHUEK OH SPANWISE STATIONJ 
FLAP SPAN / wInG span*. . . 
FLAP SETTING, DEG-. . . . . 


VALUE OF DISCRIMINANT, 
OCOY WIDTH / SPAN, . . 
WING HEIGHT / SPAN • • 
TIP THICKNESS CHORD, . 
GEOMETRIC TWIST, DEG • 
AERODYNAMIC TWIST, OEG 

TAPER RATIO 

REYNOLDS NUMBER, • . , 


COORDINATES OF MOMENT REFERENCE POINT 


3 ITERATIONS REQUIRED TO CONVERGE FOR ANGLE OF ATTACK EQUAL TO 



SPANWISE STATI0NS-r2Y/B 







(. L) 

0.9876HflE 00 

( 2) 

0.9510566 00 

( 3) 

0.891006E 00 

( 4) 

0.8090176 00 

*.5) 

0.7071076 00 

(. 6) 

0,5b7786E 00 

( 7) 

0.453991E CO 

( 8) 

0.309018E 00 

( 9) 

0.1564366 00 

MO) 

0.1831576-05 

un 

-0, 156432E 00 

( 12) 

-0.309014E CO 

(13) 

-0.4539886 00 

( 14) 

-0.587783E 00 

(15) 

-0.7071046 00 

(.16) 

-O.B09015E CO 

( 17) 

-0.891C05E 00 

(18) 

-0.9510556 00 

( 19) 

-0.9876876 00 

( 



SECTION PITCHIrNG MOMENT CUEFFICIENf 







(. 1) 

0.00000<iE CO 

( 2) 

0.0000006' 00 

( 3) 

0.00C0006 00’ 

( 4) 

O.OOOOOOE 00 

( 5) 

O.OOOOOOE 00 

(. 6) 

O.OOOOOOF CO 

1 7) 

O.OOOOOOE 00 

( 8) 

O.OOOOOOE 00 

( 9) 

0.0000006 00 

MO) 

O.OOOOOOE 00 

(.U) 

O.OOOOOOE CO 

( 12) 

O.OOOOOOE 00 

(13) 

O.OOOOOOE 00 

(14) 

0.0000006 00 

(15) 

O.OOOOOOE 00 

(.16) 

O.OOOOCOE CO 

(17) 

O.OOOOOOE 00 

MB) 

O.OOOOOOE 00 

( 19) 

0.0000006 00 

( 



EFFECTIVE SECTION ANGLE Uf- ATTACK 







(. 1) 

0.2l6l5'tE Cl 

( 2) 

0.427324E 01 

( 3) 

0.5B926LE 01 

( -4) 

0.615528E 01 

( 5) 

0.413006E 01 

(. 6) 

0.1145806 01 

( 7) 

-0.328316E 01 

( 8) 

-0.463838E 01 

( 9) 

0.1893716 01 

MOI 

0.20B239E 01 

(.U) 

0.1893716 01 

( 12) 

-0.463839E Cl 

(13) 

-0.3283156 01 

( 14) 

0.1145496 01 

(15) 

0.4130066 01 

(.16). 

0.615531E 01 

(17) 

0.589264E 01 

MH) 

0.4273286 01 

(19) 

0.2161606 01 

( 


SECTION PROFILE DRAG 

COEFFICIENT 







(. U 

0,t>274a9E-02 

( 2) 

0.689538E-Q2 

( 3) 

0.7578306-02 

( 4) 

0.0018256-02 

( 5) 

0.7238406-02 

(. 6) 

0.604193E-02 

( 7) 

0.6667126-G2 

(8) 

0.7039336-02 


0.6199956-02 

(10) 

0.628537E-02 

(.11) 

0.M9995F-C2 

( 12) 

0.703933E-02 

(13) 

0.6667126-02 

(14) 

0. 6041926-02 

(15F 

0.7238506-02 

(.lo) 

0.8018276-02 

( 17) 

0.7578326-02 

(18) 

0.6895406-02 

(19) 

0. 6274906-02 

( 


SECTION INDUCED DRAG 

coefficient 







(. U 

0.716377E-02 

( 2) 

-0.470249E-02 

1 3) 

-0.264332E-01 

( 4) 

-0.309915E-01 

( 5) 

-0.330B64E-02 

(. 6) 

0.6229376-02 

( 7) 

-0.482516E-01 

( 6) 

-0.8131026-01 

( 9) 

0.7336446-02 

MO) 

0.7246016-02 

ML) 

0.7336A4E-U2 

( 12) 

-0.813105E-01 

M3) 

-0.4025156-01 

(14) 

0.6229556-02 

(15) 

-0.3308056-02 

(.16) 

-0.309920E-01 

(17) 

-O.264330E-O1 

(18) 

-0.4702856-02 

(19) 

0.7163706-02 

( 



OJSTRIriUTIUN 

OF SECTION LIFT COEFFICIENT- 

-CL 





(. 1) 

0.228259E CO 

( 2) 

0.451254b 00 

( 3) 

0.622260E 00 

( 4) 

0.649997E 00 

( 5) 

0.4361346 00 

(. 6) 

0.120965E CO 

( 7) 

-0.3467U2E 00 

( 8) 

-0.4098136 00 

( 9) 

0.1999766 00 

(10) 

0.2199016 00 

(.11) 

0.1999766 CO 

( 12) 

-0.4698146 00 

(13) 

-0.346701E 00 

(14) 

0.120964E 00 

(15) 

0.4361376 00 

(.16) 

C.650000E CO 

( 17) 

0.622263E 00 

(10) 

0.4512586 00 

(19) 

0.2282656 00 

( 


01STRIBUTU.1N 

an SECTION LIFT CGEfflCIENT 

-CLS 





(. U 

0.8383966-01 

( 2) 

0. 165745E 00 

( 3) 

0.22B556E 00 

< 4) 

0.2387446 00 

( 5) 

0.160192E 00 

(. 6) 

0.444.305E-01 

! 

-0,1273436 00 

i 

-0.1799086 00 

( 9) 

0.7345126-01 

MO) 

0.6076976-01 

Ml) 

0.7345126-01 

(12) 

-0.1799096 00 

(13) 

-0.1273436 00 

(14) 

0.4443036-01 

(15) 

0.1601936 00 

(.16) 

0.238745E CO 

( 17) 

0.2285576 00 

MB) 

0.1657476 00 

(19) 

0.8384196-01 

( 




FUSELAGE ANGLE UF ATTACK, DbGREES 
LIFT COEFFICIENT, CL 
LIFT COEFFICIENr.CLS. ..... 
PITCHING MOMENT COEFFICIENT, CM. . 
pitching HOHENT COEFFICIENT, CHS 


A.25000 

0.135A9 

0.04976 

0.00000 

0.00000 


INDUCED DRAG COEFFICIENT, CDl ■ -0.019SO 
PROFILE DRAG COEFFICIENT, CD • 0.00676 
NACELLE DRAG COEFFICIENT, CON • O.OOOOQ 

!8!St 8l!i8 f8i(;i8lilif;88> : :8:8iUi 



Table IV - Sample Output for Propeller Velocity; 
Distr ibution 


PROPELLER SLIPSTREAM, ANALYSIS 


NRC LR-28A FIG ,26 


CT* 'N0M»0.6A,, 



BETA75»25i, J»0.605 


PROPEiLER - RING GEOMETRY 

NUMBER OF PROPS = 2 

PROP FRO COURO 2.XP/B * 0.5667 

PROP SPAN COORD 2.YP/B * .0.:6179 
PROP DIA / RING SPAN = 0.:A753 


PROPELLER - NACELLE GEOMETRY 

NO OF BLADES PER PROP » A 
HUB DIA / PROP DIA * 0.1673 

NACELLE DIA / PROP DIA = 0.1673 ■ 
PROP AXIS REL BODY AXIS > 0.000 DEG 


PROPELLER OPERATING CONOftlON 

LEFT / RIGHT PROP ROTN ■ RH. LH 
■ PROP ADVANCE RATIO ■ 0.6050 

, FLIGHT MACH NUMBER « 0.0581 

PROP ANGLE OF, ATTACK . « . A.250 DEG 


BLADE ELEMENT GEOMETRY BLADE ELEMENT SOLUTION SLIPSTREAM ELEMENT SOLUTION 


RO/RP 

C8/RP 

PITCH 

A/F ; 

SER 

CLI 

T/C 

F 

MACH 

ALPHA 

CL 

CD 

RS/RP 

USA4UA 

UST/UA 

PHIS 

0.2000 

0.2500 

55.350 

N/\CA 

16 

0.500 

0.153 

l.OAO 

0.082 

3.461 

0.582 

0.010 

0.1983 

1.2525 

0.3364 

15.033 

0.3000 

0.2500 

A9.200 

NACA 

16 

0.500 

0.106 

0.994 

0.105 

6.981 

0.848 

0.010 

0.2878 

1.4486 

0.4344 

16.694 

O.AOOO 

0.2500 

A3. 350 

NACA, 

. 16 

0.500 

0.090 

0.972 

0.131 

7.968 

0.970 

0.010 

0.3750 

1.6170 

0.4776 

16.455 

O.bOOO 

0.2500 

37.700 

NACA 

16 

0.500 

0.085 

0.956 

0.159 

7.645 

0.957 

0.010 

0.4610 

1.7270 

0.4672 

15.139 

0.6000 

0.2500 

32.350 

NACA 

16 

0.500 

0.080 

0.933 

0.188 

6.403 

0.878 

0.010 

0.'5467 

1.7843 

0.4309 

13.579 

0.7000 

C.2500 

27.300 

NACA 

16 

0.500 

0.075 

0.893 

0.217 

4.722 

0.764 

0.010 

0.6326 

1.7986 

0.3810 

11.962 

0.8000 

0.2500 

22.850 

NACA 

16 

0.500 

0.070 

0.811 

0.246 

2.739 

0.655 

0.010 ' 

0.7190 

1.7895 

0.3369 

10.663 

0.9000 

0.2500 

18.900 

NACA 

16 

0.500 

0.065 

0.638 

0.275 

0.699 

0.487 

0.010 

0.8067 

1.6853 

0.2688 

9.063 

0.9500 

0.2500 

17.100 

NACA 

16 

0.500 

0.062 

0.473 

0.289 

-0.458 

0.367 

O.OIO 

0.8518 

1.5679 

0.2195 

7.970 

l.OOOO 

0.2500 

15.350 

NACA 

16 

0.500 

0.060 

0.000 

0.307 

0.000 

0.000 

0.000 

0.9012 

1.0000 

0.0000 

0.000 


PROPELLER THRUST COEFF I C I ENT i' CT" = 0.6327 
PROPELLER THRUST COEFF 1 C LENT ,i CT = 0.2A62 
PROPELLER TORQUE COEFFICIENT,' CO = 0.037A 
MOMENTUM WGTO SLIPSTREAM VEL RATIO = 1.6A55 


SLIPSTREAM VALUES AT WING CONTROL STATIONS 


K 

2Y/B 

RS/RP 

USA/L‘0 

UST/UO 

UST/USA 

1 

0.9876 

0.77B0 

1.7148 

0.2903 

0.1693 

2 

0.9510 

0.7009 

1.7865 

0.3452 

0. 1932 

3 

0.8910 

0.5745 

1.7840 

0.4136 

0.2318 

4 

0.8090 

0.4C20 

1.6470 

0.4730 

0.2872 

5 

0.7071 

0. Ia76 

1.2490 

0.3175 

0.2541 

6 

0.5677 

0.0633 

1.2490 

-0.1071 

-0.0858 

7 

0.4539 

0.3448 

1.5544 

-0.4613 

-0.2968 

8 

0.3090 

0.6498 

1.7918 

-0.3712 

-0.2071 

12 

-0.3090 

0.6498 

1.7918 

-0.3712 

-0.2071 

13 

-0.4539 

0.3448 

1.5544 

-0.4613 

-0.2968 

14 

-0.5b77 

C.0633 

1.2490 

-0.1071 

-0.0858 

15 

-0.7071 

0.1876 

U2490 

0.3175 

0.2541 

16 

-0.8090 

0.4020 

1.6470 

0.4730 

0.2872 

17 

-0.8910 

0.5745 

1.7840 

0.4136 

0.2318 

Ib 

-0.9510 

0.7009 

1.7865 

0.3452 

0.1932 

19 

-0.9876 

0.7780 

1.7148 

0.2903 

0.1693 


SECTION 5 


VERIFICATION OF THE DEVELOPED THEORY 


This section presents a series of correlations between 
the predicted results, obtained from the computer program 
described in Section 4 and the available experimental data. 

A discussion of these correlations has been separated into 
two natural categories. The first part deals with a veri- 
fication of the solution for an isolated propeller-nacelle 
configuration, while the second part considers the combined 
wing- in-slipstream case. 


5.1 CORRELATIONS FOR AN ISOLATED PROPELLER 

A majority of the available experimental data on iso- 
lated propellers is limited to measurements of total thrust 
and torque. Even in the few reported studies where the prop- 
eller slipstream velocities were measured, the data presented 
is generally incomplete and insufficient to permit a compre- 
hensive evaluation of the propeller analysis. It was therefore 
necessary to establish the overall adequacy of the analytical 
predictions by presenting a series of partial correlations 
with the applicable data from each experimental source. 

Correlations of the elemental loading on a propeller 
blade are limited to the experimental data reported in 
Reference 30. This data is presented for two 2.8-foot diameter 
model propellers of similar design, but different twist 
distributions. The experimental loadings were obtained dir- 
ectly from measurements of the slipstream velocity and swirl 
angle in a plane immediately behind the propeller disc. This 
test information forms the basis for the correlations shown 
in Figures 9, 10, and 11. 

Figure 9 presents comparisons between the predicted 
and measured elemental thrust and torque loadings, expressed 
as ratios of predicted over measured values, versus predicted 
local lift coefficient at a blade radius of 75.2 percent. 

As can be noted from this figure, the thrust loading pre- 
dictions, employing the tabulated airfoil characteristics, 
are in satisfactory to good agreement with the test data 
throughout the range of the lift curve. Also, the 
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corresponding torque loadings are in reasonable agreement, 
except at conditions near the stall, where the discrepancies 
may be attributed to an underestimation of the drag coefficient, 
assumed constant at a nominal value of 0.01. However, it 
should be noted that the ejq)erimental torque loading is 
particularly sensitive to the measurement of slipstream swirl 
angle, and therefore may be subject to appreciable experimental 
error. Figure 9 also includes a comparison of the predicted 
results obtained by using an unstallable linear lift curve 
to approximate the airfoil characteristics. The limitation 
of the linearized representation is reflected by an inferior 
prediction of thrust loadings near and above the stall point. 

Figure 10 shows similar correlations, to those pre- 
sented in Figure 9 but for a blade station further inboard 
at 52 percent radius. In this case, satisfactory to good 
correlations are also indicated. 

Figure 11 shows similar comparisons to those shown in 
Figures 9 and 10, but at a blade radius near the hub, at 
25.3 percent. While an increased scatter in the correlations 
may be partly attributed to the smaller magnitude of the 
measxared quantities, it is evident that the assumption of 
an unstallable linear lift curve offers a better correlation 
for both the thrust and torque loadings. A suggestion that 
the stall point for this airfoil should be extended to a 
higher angle-of-attack , is consistent with the probable 
existence of a favorable boundary layer developraent caused 
by centrifugal pumping near the hub region. 

In reviewing the correlations shown in Figures 9 
through 11, it is apparent that there may be a restricted 
region of the blade close to the hub where stall delay 
effects are present. However, there is clearly an insuff- 
icient substantiation of this phenomenon to permit any 
rational empirical treatment. 

Figures 12 and 13 present correlations between the 
predicted and measured values of the axial and swirl velocity 
distributions within the slipstream of propellers operating 
at relatively low advance ratios. The experimental data 
shown was obtained from Reference 17, v^hich presents slip- 
stream velocity measurements for two 39-inch diameter prop- 
eller-nacelle models, in a plane approximately 0.44 diameters 
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Velocity Ratio, Vg^/V^ Swirl Angle, deg 


Flagged symbols denote test data 
at a diametrically opposed location 


Predicted 



rg/R 

Comparison Between Predicted and Measured 
Distributions of Slipstream Axial Velocity and 
Swirl Angle for the P-2 Propeller of Reference 17 
at J — 0*12* 



Flagged symbols deriote test data_ ; 
at a dicutie trie ally opposed location 


Predicted 



r«/R 


Comparison Between Predicted and Measured 
Distributions of Slipstream Axial Velocity and 
Swirl Angle for the P-1 Propeller of Reference 17 
at J = 0 . 26 . 




(?ovmst.reaia-of the- propeller disc. The slipstream velocity 
ijieas\jr^^^t%^ Wfere' ^>b'taihed'tisirtg an eight-probe rahe moxmted 
|yirai:fetrlcail^'^^ the' prbpeirer axis. 

1 Figuri 12 shows ;a comparison between the predicted and 
measured si ip stream velocities for' a propeller designed with 
nigh tapeiTjand Wist :so as to produce an axial velocity peak 
vfell inboard. As can be seen from this figure, the predicted 
4xial velocity distribution within the slipstream is in good 
agreement ^Yith ^ihe' cqrr^^POJ^^^^S test data. However, the 
awirl angle predicti0.n--can" hot be properly assessed because 
cff* the 'e3cc'4sl§l^e 'ecatter 'Of the experimental data points. It 
Should be ?Hoted that --flagged and inflagged test points shown 
jfn Figure 1 12 represent image positions oh each side of the 
propeller,. ; • 

i ' ? » 

I 

1., . .•F-ig\he~-l--3— showe -ar-simi-lar degree of correlation between the 
predicted and measured slipstream velocities for a propeller 
having a itibre" conventional plan form and twist distribution. 

In this case, the predicted results are presented for a 
j?ropeller ^peed reduced to 80 percent of the reported value. 

This correction was introduced to overcome an apparent dis- 
crepancy in the test measurements, as suggested by the authors 
df- Reference -;l-7-.- -- V- 

> 

Fig lord. 14 presei^s twq additional correlations for slip- 
i^tream swijrl angle distributions b^sed on the test data of 
Reference ^2. The experimental measurements were obtained at 
4 di stance’ jof 2 diameters downstream of an isolated propeller. 

]Jt can be.'4een Worn Figxore 14 that the analysis generally 
predicts |>rofiles of the experimental distributions, although 
an incremfeptal shift in the swirl angle of up to 4 degrees is 
evident. « However, the absence of the corresponding test data 
On the axial velocity distributions precludes a proper explan- 
^tidn'“<5F-i;tlii s' shift in the slipstream swirl angle. 

I f 

; One aspect of the analysis not considered in the above 
dorrelations is an assumption that the slipstream may be 
considered (as fully developed dr fvilly contracted, for the 
purpose .. of -^predicting- the -wing span loading. While the effect 
‘Of slipstream contraction on wing loading can only be properly 
assessed by coirprehensive measurements, some observations on 
the rate of slipstream contraction can be made from the 
available 'test data. ' , ‘ 
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Figure 14. Comparison Between Predicted and Measured 

Distributions of Slipstream Swirl Angle for 
Typical Test Conditions Reported in Reference 42 



In practical aircraft configurations the propeller 
disc plane is generally located between one-half and one 
diameter forward of the wing quarter-chord line. From the 
correlations shown in Figures 12 and 13, it may be inferred 
that slipstream contraction could be fully developed at 
distances within 0.44 (D) behind the propeller. If this 
is the case, then the rate of slipstream contraction is 
significantly higher than that predicted by potential theory. 

From the foregoing discussion and the correlations 
presented above, it can be concluded that the computerized 
analytical method developed herein yields more than adequate 
solution for the non-uniform propeller slipstream velocity 
distributions, which can be confidently used for prediction 
of wing spanwise loadings. 


5.2 correlations FOR WING- IN- SLIP STREAM 

This subsection presents the correlations of the 
theory with experimental data on wing spanwise loadings with 
slipstream effects. In selecting experimental data to 
thoroughly test the theoretical model the following criteria 
were used: 

• Complete information on the geometric parameters of 
wings, nacelles and propellers. 

• Adequate definition of the wing and propeller airfoil 
sections used in the tests. 

• A thorough description of the propeller operating 
conditions in terms of blade angle, advance ratio, 
and rotational speed. 

• An accurate determination of the spanwise lift 
distribution obtained by chordwise pressiare surveys. 

It was found that the amount of available test data 
that meets all of the above criteria is extremely limited. 
However, sufficient data was obtained from the technical 
literature to provide a fairly adequate basis for verification 
of the theoretical model. Some test data was obtained on 
wings immersed in jets, wings having centrally mounted 
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propellers, and wings with propellers placed at different 
spanwise stations up to and including the wing tips. 

With few exceptions, the majority of the available 
test data was obtained at wing angles of attack below stall. 
Therefore, the adequacy of the developed methods to prei^ict 
the span load distribution at the oniiet of stall could not 
be thoroughly verified. However, basec^ on the correlations 
presented herein, at angles of attack cipse to stall, it can 
be inferred that the span loading at stall can be reasonably 
well predicted using ‘the present analysis.., Unfortunately, 
no test data is available on spanwise lift distributions 
for wings with part-span deflected flaps. Therefore, 
correlations for this case can not be presented at the 
present time. 

The correlations that are presented below show the 
applicability of the analysis to low aspect- ratio wings, the 
capability to predict wing- in- jet effects, the prediction 
of span loading for single propeller configurations and, 
finally, the ability to predict the lift distributions on 
twin engine aircraft including those having tip-mounted prop- 
ellers . 

5.2.1 Correlations for Low Aspect Ratio Wings 

The applicability of the present method to low aspect 
ratio wings, (see subsection 3.2.3), was' Verified by performing 
correlations of the span loading on a rectangular wing of 
aspect ratio equal to 1.0. These corr^ations which are 
shown in Figure 15, are based on the analytical results of 
Reference 22 and the available test data obtained from a 
number of sources . 

Figure 15 (a) shows a comparison of the predicted 
span loading (expressed as CJL/Q. )., with the analytical data 
of the two selected References. As can be noted from this 
figure, the predicted results are in satisfactory agreement 
with the results of References 22 and 43. Also Figure 15 (b) 
shows a comparison between the predicted and measured vari- 
ations of lift-curve slope for a rectangular wing versus 
aspect ratio. Again, the computed results match those of 
References 22 and 43, and agree with the corresponding exper- 
imen tal values. 
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5.2.2 Correlation for Centrally-Mount.ed Propellers and Jets 


In Reference 6 Stuper measured the lift distribution 
on a rectangular wing having a uniform circular jet of air 
blowing over the center span. The jet was produced by a 
specially designed fan generating a uniform jet flow without 
rotation. Ihis test data was chosen for comparison because 
it provides a check of the wing- in- slipstream theory, without 
reference to the propeller analysis. 

Figure 16 shows a comparison between the predicted 
and measured spanwise lift distributions from Stuper ' s test; 
and again satisfactory agreement between the theory and the 
experimental data is obtained. 

Measurements of lift distributions on wings with 
centrally mounted propellers are presented in Reference 29. 

In this series of tests, data was obtained for a full-scale 
wing/propeller combination in the large 30' X 60 ' wind 
tunnel at NASA, Langley. The propeller had a diameter of 
4 feet and the wing was rectangular with a 5 foot chord. 

Aspect ratio was varied by changing the wing span. 

Figure 17 presents a comparison between the theoretical 
predictions and the experimental data obtained for aspect 
ratio of 6.0 for wing alone, wing and nacelle, and wing, 
nacelle and propeller. Similar comparisons for a' wing 
aspect ratio of 3.0 are shown in Figure 18. It can be 
noted from these figures that the combined wing/propeller 
theory predicts the span loading very well, except near the 
tips where the experimental data shows the characteristic 
square-tip loading which cannot be predicted using lifting 
1 ine theory . 

It should be noted that for both the Stuper jet case 
(Figure 16) and the central propeller cases (Figures 17 and 
18) , twenty stations per semispan were used in the comput- 
ations in order to obtain adequate definition of the Loa.d 
distribution within the propeller slipstream region* If the 
propeller slipstream is not present, sufficient definition is 
generally achieved with the standard 10 points per semispan. 
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Configuration Test Predicted 



Figure 16 . 


Comparison Between Predicted Spanwise Loading and Measiarements 
of Reference 6 for a Rectangular Wing With End Plates Subjected 
to a Uniform Jet; V_/V_ = 1.36. 




0.42 (Climb Condition) 



Figiare 17. 


Predicted Versus Measured Spanwise Loadings for the Rectangular Wing 
of Reference 29 With a Centrally-Mounted Propeller; AR = 6. 







= 0.42 (Climb Condition) 



Figure 18 


Predicted Versus Measured Spanwise Loadings for the Rectangular Wing 
of Reference 29 With a Centrally-Mounted Propeller; AR = 3. 
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5,2.3 Correlation for Twin Propeller Configurations 


Reference 42 presents the results of wind tunnel 
tests on a reflection-plane model of a twin-engined tilt- 
wing VTOL configuration. The model tested consisted of a low 
aspect ratio rectangular (18" X 26") unswept wing with a 
nacelle and propeller situated at 62 percent of the semispan, 
ihe wing airfoil section was a NACA 0015, the propeller 
blade sections were of the NACA 16 series and the propeller 
diameter was 26". The test report presents meastjred spanwise 
load distributions at various wing angles of attack for a 
limited range of propeller thrust coefficients. 

Figures 19, 20, and 21 show comparisons of the pre- 
dicted and measured span loadings for power-off and power- 
on conditions, for propeller thrust coefficients of CTg=0 , 

0,36 and 0.64, respectively. It was found that in order 
to match the measured lift distributions power-off, the 
theoretical calculations had to be performed at angles of 
attack slightly below those values quoted in Reference 42. 

For example, in order to match the C, distribution for 
5° angle of attack, the calculations nad to be made at 
4.25°, The reason for this discrepancy is not clear since, 
as is shown elsevdiere, predictions for other wings, power-off, 
agree with the ejq>erimental data. The discrepancy could be 
attributable to tunnel flow inclination effects. In the 
comparisons shown for power-on conditions, the angle of 
attack values used are those that match the power-off loading. 

Despite the differences noted above, the theoretical 
predictions of the spanwise lift distribution agree well with 
the e3q>erimental data of Reference 42 except near the wing root. 
This discrepancy is attributed to the presence of tunnel wall 
boundary layer effects, as mentioned in Reference 42. 

In Reference 44, a series of tests are reported that 
were made on rectangular wings or aspect ratio 2.28, 3.26, 
and 4.7 with an underslung nacelle and propeller placed at 
83 percent, 58 percent and 40 percent of the semispan, 
respectively. The propeller was the same propeller used in 
the tests of Reference 42. The wing airfoil section was a 
NACA 4415 series. The tests were conducted for wing angles 
of attack of 0° through 120° at various values of propeller 
thrust coefficient. 
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Figures 22 , 23, and 24 show power-off correlations of 
the spanwise lift distribution obtained using the present 
theoretical analysis for the three wing aspect ratios at 
wing angles of attack below stall. The agreement between the 
theory and test is good throughout all values of wing aspect 
ratio except near the wing root where substantial wall effects 
are evident. Figures 25 through 27 show the theoretical span 
loading versus the measured loading for a propeller thrust 
coefficient C^g =0.4. In all cases, excellent agreement 
is obtained between the predictions and the test distributions 

Although test data was obtained at angles of attack 
up to 120°, the angles of attack were either below stall or 
well above stall. Thus no data was obtained at the point of 
initial stall onset. No check of the theory close to the 
stall point is, therefore, available from this test series. 

5.2.4 Effect of Propeller Rotation 

The direction of rotation of propellers of multi- 
propeller configurations may introduce appreciable changes in 
the wing span loading. For example, rotation of propellers 
in the same direction of a twin-propeller configiuration 
causes asymmetry in the span loading, which in turn gives 
rise to the aircraft rolling moment. 

Although no test data exists to verify this aspect of 
the present theory, computations were performed for the 
conf igiaration of Reference 42 to demonstrate the ability of 
the computer program to handle different propeller rotations. 
The predicted results showing the effect of propeller rota- 
tions on the wing span loading are presented in Figure 28. 

The results are applicable to wing aspect ratio of 3.0, wing 
angle of attack of 10° and propeller thrust coefficient of 
Cijig = 0 . 64 . 

As can be noted from Figure 28 counterclockwise 
rotation of both propellers (as viewed from the rear) results 
in the asymmetric span loading, which could be integrated to 
yield the aircraft rolling moment due to power effects. 
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Figure 28 i Effect of Propeller Rotation on Span Loading for the Configuration 
of Reference 42; AR = 3.0, Crp^, = 0.64, a = 10 Degrees. 
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5»2«5 Effect of Flap Deflection 

One of the prime concerns in the design of modern general 
aviation type aircraft is the effect of flap deflection (part- 
span and full-span) or bring stalling characteristics during 
take-off and landing, i.e. power-on and power-off conditions 
respectively. This effect can be readily predicted by the 
computer program developed herein, however the adequacy of the 
analysis can not be verified because of the lack of suitable 
ej<perimental data. 

Figure 29 demonstrates the capability of the current 
computer program to predict power-on span load distributions 
associated with the deflection of part-span flaps. This 
figure presents the computed results for the twin-propeller 
configioration of Reference 44, with an arbitrary flap of 60 
percent span. The predicted power-off span loadings, with and 
without flap deflection, are also shown for comparison. 

Based on the correlations presented in this section it 
is concluded that the wing- in- si ip stream theory developed herein 
provides an effective analytical tool for predicting the 
effects of propeller slipstream on wing spanwise loadings. 
Unfortunately, due to the lack of suitable experimental data, 
these correlations had to be limited to unflapped wings 
operating at conditions below stall. It is expected, however, 
that if the pressiore data was available for wings at the onset 
of stall and with part-span deflected flaps, the present theory 
would also prove satisfactory for these conditions. It is 
therefore recommended that this part of the theory be verified 
by wind tunnel tests which should include pressure measurements 
for both the wing and the slipstream for typical wing /propeller 
combinations operating close to stall. 
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SECTION 6 


/ 

COI^CLUSIONS AND RECOMMENDATIONS 

'i I 

( 

I 

1. TOiis report presents analytical methods for predicting 
spanwise lo^d distributions of straight-wing/propeller 
combinations operating up to stall, for a range of 
aspect ratio, from about 2.0 and higher. 

2. The analytical methods developed herein employ non- 
linear lift ciorves, in the form of computerized table 
look-up siabroutines , for a variety of wing airfoils and 

an extensive selection of typical propeller blade sections. 
These methods are therefore applicable to a wide range of 
wing/propeller configurations and operating conditions. 

3. The predicted results for both propeller slipstream 
velocity distributions and for wing spanwise loadings are 
generally in good agreement with the limited test data. 
However, due to the lack of suitable ej<perimental data 
involving pressvire measurements on wings close to stall 
and with part-span deflected flaps, the full capability 
of the analysis could not be verified. 

4. Based on the correlations shown in Section 5, it is 
concluded that the computerized methods developed herein 
represent an effective analytical tool for predicting 
the power-on and power-off stalling characteristics of 
general aviation aircraft. 

5. In view of the promising results obtained in this study, 
it is strongly recommended that a comprehensive wind 
tunnel program be undertaken to provide the necessary 
experimental data base to complete verification of the 
analysis . 

6. It is further recommended that the wind tunnel test 
program must include detailed pressure measurements for 
both the wing and the slipstream for typical wing/ 
propeller combinations operating throughout the entire 
range of angle of attack up to and including stall. 
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APPENDIX A 


PROPELLER TIP LOSS CORRECTION TABLES 


This appendix presents a computer-generated listing of 
the propeller tip loss correction factors utilized by the 
computer program described herein. These correction factors 
are applied as described in Section 4.1 to obtain an improve- 
ment to the approximate tip loss factor given by equation (16). 

These correction factors are based directly on the 
tabulated values generated by Lock, as given in Reference 21. 
However, the original tables given by Lock have been modified 
and enlarged to provide for more uniform increments in the two 
parametric variables, r and sin <f) . These changes permit a 
more efficient table look-up interpolation procedure and pro- 
vide for an improved definition of the correction factors. 

The additional and intermediate values of these factors were 
obtained through crossplotting of the original tabulated 
data and by using suitably faired curves. 

The following tables are presented for propellers 
having either 2, 3, or 4 blades. For propellers with more 
than 4 blades, the computer program assumes a correction 
factor of unity for all values off and 
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TIP Less CGBRECTICNS - TABULATION OF F/FP FOR 2 BLAOED PROPELLERS 


R7RP 

0..3 

0.4 

0.5 

0.6 

0.7 

0 .8 

- 0.9 

1.0 

S IN ( PF I ) 









O.CO 

1.000 

1..000 

l.OCC 

l.COO 

1.000 

1.000 

1.000 

l>t)00 

0.05 

1.000 

l.GOC 

l.COO 

1.000 

1.000 

0.998 

0.990 

0.10 

1.000 

l.COO 

0.999 

0.998 

0.996 

0.990 

0.983 

0.976 

0.15 

0.999 

0.998 

0.997 

0.994 

0.987 

0.97^' 

0.966 

0.955 

0.20 

0.995 

0.994 

0.990 

0.984 

0.972 

0.959 

C.;T40 

^.9,23 

0.25 

0.987 

0.984 

0.979 

0.965 

0.949 

0.929 

/ 

0.906 

0.877 

0.30 

0.978 

0.974 

0.965 

0.945 

0.92^ 

.0.894 

0.865 

^0.827 

0.35 

0.969 

0.963 

0.949 

0.924 

0.894 

0.858 

0.820 

0.785 

0.40 

C.961 

C.952 

0.931 

0.9C2 

0.863 

0. 822 

0.781 

0.746 

0.45 

0.956 

0.941 

0.913 

0.879 

0.831 

0.786 ^ 

0 .746 

0.711 

0.50 

0.954 

0.929 

0.894 

0.852 

0.801 

0. 757 

6.717 

/ / 

0.681 

0.55 

0.953 

0.918 

0.876 

0.827 

0.777 

0. 734 ^ 

/, 

0.694 

0.656 

0.60 

0.955 

0.907 

0.856 

0.806 

0.759 


0.674 

0.635 

0.65 

0.963 

C.9C0 

0.843 

0.791 

0.746 

0.699 

0.656 

0.616 

0.70 

0.975 

0.897 

0.835 

0.780 

0.735 

0.685 

0.639 

0.598 

0.75 

0.992 

0.899 

0.833 

0.777 

0.726 

0.671 

0.622 

0.581 

0.80 

1.015 

0.911 

0.840 

0.777 

0.718 

0.658 

0.607 

0.564 

0.85 

1.056 

0.942 

0.855 

0..780 

0.710 

0.646 

0.592 

0.547 

0.90 

1.128 

C.990 

0.877 

0.784 

0.704 

0.634 

0.577 

0.531 

0.95 

1.240 

1.C6C 

0.906 

0.791 

0.698 

0.623 

0.563 

0.515 

1.00 

1.512 

1 . 170 

0.940 

0..798 

0.692 

0.612 

0.550 

0.500 
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TABULATION CF F/FP FOR 3 BLAOEO PROPELLERS 


0.5 


C.6 


C.7 


0.8 


0.9 


1.0 


TIP LOSS CORRECTIONS - 


R7RP 

0.3 

0.4 

SiNiPHI ) 



0.00 

1.000 

l.COO 

0.05 

1.000 

1.000 

O.LC 

1.000 

l.OOC 

0.15 

0.999 

0.999 

0.20 

C.997 

0.996 

U.25 

0.995 

C.993 

0.30 

0.992 

C.990 

0.35 

0.989 

0.985 

O.AC 

C.985 

0.979 

0.A5 

C.980 

0.973 

0.50 

0.976 

0.967 

U. 55 

0.975 

0.964 

0.60 

0.978 

C.965 

0.65 

0.986 

0.968 

0.70 

0 .99q 

0.976 

0.75 

1.020 

0.986 

0.80 

1.051 

l.COl 

0.85 

1.099 

1.C28 

0.90 

1.163 

1.C73 

0.95 

1.255 

1.145 

l.CO 

1.535 

1.275 


l.CCC 

l.COO 

l.OOC 

l.CCC 

l.OCO 

1.000 

0.999 

G.999 

0.999 

0.997 

0.997 

0.995 

0.994 

0.993 

0.990 

0.991 

0.987 

0.981 

0.986 

0.980 

0.968 

0.979 

0.971 

0.954 

0.97C 

0.959 

0.938 

0.961 

0.945 

0.919 

0.953 

0.931 

0.900 

0.947 

C.91B 

C.882 

0.941 

0.906 

0.865 

0.939 

0.897 

C.849 

0.938 

0.890 

0.835 

0.939 

0.885 

0.823 

0.944 

0.882 

0.815 

0.957 

0.886 

0.812 

0.984 

0.897 

0.814 

1.025 

C.914 

0.815 

1.C8C 

0.935 

0.817 


1.000 

l.COO 

1.000 

0.999 

0.997 

0.995 

0.995 

0.992 

0.987 

C.990 

0.985 

0.976 

0.982 

0.972 

0.960 

0. 971 

0.953 

0.938 

0.955 

0.931 

0.910 

0.935 

C.905 

0.879 

0.910 

0.876 

0.844 

0.886 

0.845 

0.809 

0.861 

0.815 

0.777 

0.837 

0.789 

0.749 

0.816 

0.765 

0.724 

0.796 

0.744 

0.701 

C. 779 

0.725 

0.680 

0.763 

0.706 

0.661 

0. 7 50 

0.689 

0.644 

0.739 

0.675 

0.627 

C. 730 

0.663 

0.611 

0.722 

0.652 

0.597 

0.715 

0.642 

0.583 
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TIP LGSS 
R/KP 

SIN(Pi-;i ) 
O.CO 
0.05 
0.10 
0. 15 
0.20 
0.25 
0.30 
0.35 
0.40 
0.45 
0.50 
0.55 
0.60 
0.65 
0.70 
0.75 
0.80 
0.85 
0 .90 
0.95 
1.00 


CGRRECTICNS - TABU L/^T ION CH F/FP FOR 4 BLAOED PROPELLERS 


0.3 

0.4 

0.5 

0.6 

l.OOC 

l.COO 

l.COO 

l.COO 

1.000 

l.OOC 

l.COO 

1.000 

1.000 

l.OOC 

l.COO 

l.COO 

l.OOC 

l.COO 

0.999 

0.998 

0.999 

0.999 

0.998 

0.996 

0.998 

C .998 

0.996 

0.994 

0.996 

0.995 

0.993 

0.991 

0.994 

0.992 

0.989 

0.985 

0.991 

0.988 

0.984 

0.977 

C.987 

0.984 

0.9 79 

0.967 

0.985 

0.981 

0.974 

0.958 

0.985 

0.980 

0.970 

0.949 

0.987 

0.981 

0.966 

0.940 

0.993 

0.985 

0.965 

0.932 

1.004 

0.991 

0.965 

0.926 

1.022 

1.004 

0.969 

0.922 

1.049 

1.021 

0.976 

0.921 

1.090 

1.048 

0.989 

0.923 

1.155 

1.090 

1.009 

0.929 

1.250 

1.156 

1.043 

0.943 

1.493 

1.267 

1.095 

0.965 


0.7 

00 

• 

o 

0.9 

1.0 

1.000 

l.COO 

l.COO 

1.000 

1.000 

1.000 

0.998 

0.997 

l.OOC 

0.997 

C.995 

0.992 

0.998 

0.995 

0.990 

0.985 

0.995 

0.991 

0.983 

0.975 

0.991 

0.983 

0.972 

0.959 

0.984 

0.973 

0.956 

0.937 

0.974 

0.959 

0.936 

0.909 

0.962 

0.940 

0.912 

0.878 

0.948 

Q. 920 

0.887 

0.850 

0.933 

0.901 

0.863 

0.824 

0.919 

0.882 

C.841 

0.800 

0.905 

0.864 

0.820 

0.777 

0.892 

0. 848 

0.801 

0.756 

0.880 

0. 833 

0.783 

0.737 

0.870 

0.818 

0.765 

0.719 

0.862 

0.806 

0.748 

0.701 

0.857 

0. 795 

0.733 

0.684 

0.855 

0.786 

0.720 

0.667 

0.857 

0. 779 

0.709 

0.652 

0.862 

0. 773 

0.699 

0.637 
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APPENDIX B 


PROPELLER AIRFOIL TABLES 

t ^ 

This appendix presents a^ computer-generated listing of 
tha propeller blade section data tables that are available 
fot use by the computer program. 

Each table contains the values of lift coefficient 
versus angle of attack for a range of Mach number conditions 
for. one specified airfoil section. At the head of each table 
is ' descriptive information on the airfoil name and data 
source. Ihis is follows by the airfoil series code identi- 
fication and the main geometric and test parameters. 

Ihe following tables contain the selected propeller 
station characteristics for airfoils of the U.S.N.P.S., 

Clark Y, NACA 16, NACA 64 and NACA 65 families. The sets of 
tables for each airfoil series are arranged in the specific 
order of increasing Mach number, thickness/chord ratio and 
design lift coefficient, as necessary for proper utilization 
by the computer program. 
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PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

USNPS 

1 -M04 

USNPS 

; -M06 

USNPS 

> •HOB 

USNPS 

. -MIO 

USNPS 

1 -HI2 

USNPS 

; -HU 

TABLE DATA SOURCE 

F E 

WEICK 

F E 

WEICK 

F E 

WEICK 

F E 

WEICK 

F E 

WEICK 

F E 

WEICK 

AIRFOIL SER CODE 


1 


1 


1 


1 


1 


X 

DESIGN LIFT COEFF 

0* 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

THICKNESS / CHORD 

0. 

040 

0. 

060 

0. 

OBO 

0. 

100 

0* 

120 

0* 

140 

HACH NUMBER 

0. 

070 

0. 

070 

0. 

070 

0. 

070 

0. 

070 

0. 

070 

ZERO LIFT ALPHA 

-u 

900 

-2. 

600 

-3. 

350 

-4. 

300 

-5. 

250 

-6. 

300 

EXTRAP COEFF KCLI 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

ALPHA, CL VALUES 

-1.900 

0.000 

-2.600 

0.000 

-3.350 

0.000 

-4.300 

0.000 

-5.250 

0.000 

-6.300 

0.000 


0.000 

0.200 

2.000 

0.465 

4.000 

0.735 

4.000 

0.800 

2.000 

0.700 

-4.000 

0.200 


2.000 

0.420 

4.000 

0.660 

6.000 

0.925 

6.000 

0.965 

4.000 

0.880 

-2.000 

0.390 


4.000 

0.615 

6.000 

0.850 

8.000 

1.105 

8.000 

1.145 

6.000 

1.055 

2.000 

0.765 


6.000 

0.760 

8.000 

1.020 

10.000 

1.200 

10.000 

1.310 

B.OOO 

1.220 

4.000 

0.935 


8.000 

0.660 

10.000 

1.075 

11.000 

1.215 

11.000 

1.395 

10.000 

1.370 

6.000 

1.090 


10.000 

0.915 

12.000 

1.040 

12.000 

1*160 

12.000 

1.435 

12.000 

1.470 

6.000 

1.230 


12.000 

0.930 

14.000 

1.010 

14.000 

1.105 

14.000 

1.235 

13.200 

1.490 

10.000 

1.355 


14.000 

0.925 

16.000 

0.990 

16.000 

1,060 

16.000 

1.095 

14.000 

1.480 

12.000 

1.440 


16.000 

0.085 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

1.240 

13.000 

1.430 


0.000 

0.000 

0.000 

0.000 

0.000 

0,000 

0.000 

0.000 

0.000 

0.000 

14.000 

1.385 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

1.230 


AIRFOIL SECTION 

USNPS 

1 -H16 

USNPS 

1 -M18 

USNPS 

; -M20 







TABLE DATA SOURCE 

F E 

WEICK 

F E 

WEICK 

F E 

WEICK 







AIRFOIL SER CODE 


1 


1 


1 


0 


0 


0 

DESIGN lift COEFF 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

0, 

000 

0. 

000 

THICKNESS / CHORD 

0. 

160 

0. 

IBO 

0. 

200 

0. 

000 

0. 

000 

0. 

000 

HACH NUMBER 

0. 

070 

0. 

070 

0. 

070 

0. 

000 

0. 

000 

0. 

000 

ZERO LIFT ALPHA 

-7. 

400 

-8. 

700 

-10. 

200 

0, 

000 

0. 

000 

0. 

000 

EXTRAP COEFF KCLI 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

.0- 

000 

ALPHA, CL VALUES 

-7.400 

0.000 

-8.700 

0.000 

-10.200 

0.000 

0,000 

0.000 

0.000 

0.000 

0.000 

0.000 


-6.000 

0.110 

-4.000 

0.320 

-6.000 

0.215 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


-4.000 

0.270 

-2.000 

0.490 

-4.000 

0.345 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


-2.000 

0.450 

0.000 

0.650 

-2.000 

0.490 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


2.000 

0.795 

2.000 

0.795 

0.000 

0.630 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


4,000 

0.950 

4.000 

0.950 

2.000 

0.760 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


6.000 

1.095 

6.000 

1.070 

4.000 

0.890 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


8.000 

1.210 

6.000 

1.165 

6.000 

1.010 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


10.000 

1.305 

10,000 

1.240 

e.ooo 

1.110 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


12.000 

1.375 

12,000 

1.285 

10.000 

1.165 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


13.000 

1.365 

14.000 

1.220 

11.000 

l.UO 

0.000 

(L.000 

0.000 

0.000 

0.000 

0.000 


14,000 

1.305 

16.000 

1.135 

12.000 

1.170 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


16.000 

1.195 

0.000 

0.000 

14.000 

1.135 

0.000 

0.000 

0.000 

0.000 

0.000 

o;ooo 


0.000 

0.000 

0.000 

0.000 

16.000 

1.060 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 
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PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

CLARK 

.Y-M06 

CLARK 

,.Y-H08 

CLARK 

.Y-MIO 

CLARK 

.Y 

CLARK 

•Y-M14 

CLARK 

.Y-M18 

TABLE DATA SOURCE 

NACA 

TR-628 

NACA 

TR-628 

NACA 

TR-628 

NACA 

TR-628 

NACA 

TR-628 

NACA 

TR-628 

AIRFOIL SER CODE 


2 


2 


2 


2 


2 


2 

DESIGN LIFT COEFF 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

THICKNESS / CHORD 

0* 

060 

0. 

080 

0. 

100 

0. 

IIT 

0. 

140 

0. 

160 

KACH NUMBER 

0. 

060 

0. 

060 

0. 

060 

0. 

060 

0. 

060 

0« 

060 

ZERO LIFT ALPHA 

-2* 

950 

-3. 

560 

-4. 

560 

-5. 

000 

-6. 

200 

-7. 

600 

EXTRAP COEFF KCLI 

0 . 

000 

0. 

000 

0. 

000 

0. 

000 

0. 

000 

-0. 

000 

ALPHA* CL VALUES 

-6.000 

-0.300 

-6.000 

-0.235 

-6.000 

-0.130 

-6.000 

-0.095 

-6.200 

0.000 

-7.600 

0.000 


-2.950 

0.000 

-3.560 

0.000 

-4.560 

0.000 

-5.000 

0.000 

2.000 

0.800 

-6.000 

0.160 


A. 000 

0.680 

6.000 

0.925 

2.000 

0.640 

-2.000 

0.265 

4.000 

0.985 

-4.000 

0.350 


6.000 

0.865 

6.000 

1.110 

4.000 

0.830 

6.000 

1.030 

6.000 

1.160 

2.000 

0.890 


0.000 

0.985 

10.000 

1.280 

6.000 

1.015 

8.000 

1.200 

8.000 

1.315 

4.000 

1.040 


10.000 

1.060 

11.500 

1.370 

6.000 

1.195 

10.000 

1.360 

10.000 

1.465 

6.000 

1.185 


12.000 

1.070 

12.000 

1.290 

10.000 

1.365 

12.000 

1.485 

12.000 

1.590 

8.000 

1.315 


lA.OOO 

1.050 

14.000 

1.170 

12.000 

1.500 

14.000 

1.610 

14.000 

1.720 

10.000 

1.420 


16.000 

1.020 

16.000 

1.100 

14.000 

1.635 

15.300 

1.660 

16.000 

1.550 

12.000 

1.470 


0.000 

0.000 

0.000 

0.000 

14.800 

1.680 

16.000 

1.500 

20.000 

1.430 

13.000 

1.460 


0.000 

0.000 

0.000 

0.000 

16.000 

1.420 

20.000 

1.300 

0.000 

0.000 

14.000 

1.470 


0.000 

0.000 

0.000 

0.000 

20.000 

1.220 

0.000 

0.000 

0.000 

0.000 

16.000 

1.430 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

20.000 

1.360 


AIRFOIL SECTION 

CLARK. Y-M22 

NACA 16106 

NACA 16106 

NACA 16106 

NACA 16106 

NACA 16106 

TABLE DATA SOURCE 

NACA TR-628 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 


AIRFOIL SER CODE 

2 

3 

3 

3 

3 

3 

DESIGN LIFT COEFF 

0.000 

0.100 

0.100 

0.100 

0.100 

oaoo 

THICKNESS / CHORD 

0.220 

0.060 

0.060 

0.060 

0.060 

0.060 

MACH NUMBER 

0.060 

0.300 

0.450 

0.600 

0.700 

0.750 

ZERO LIFT ALPHA 

-9.290 

-1.050 

-1.100 

-l.OOO 

-l.OOO 

-1.000 

EXTRAP COEFF KCLI 

0.000 

0.760 

0.760 

0.760 

0.760 

0.760 


-9.290 

0.000 

-2.000 

-0.085 

-2.000 

-0.090 

-2.000 

-0.105 

-2.000 

-0.130 

-2.000 

-0.145 

-6.000 

0.300 

-1.050 

0.000 

0.000 

0.105 

0.000 

0.110 

0.000 

0.120 

2.000 

0.405 

-4.000 

0.480 

0.000 

0.100 

2.000 

0.305 

2.000 

0.340 

2.000 

0.375 

0.000 

0.000 

0.000 

0.800 

2.000 

0.305 

4.000 

0.540 

4.000 

0.600 

3.000 

0.540 

0.000 

0.000 

2.000 

0.950 

4.000 

0.510 

6.000 

0.705 

5.000 

0.705 

3.770 

0.725 

0.000 

0.000 

4.000 

1.085 

6.000 

0.670 

8.000 

0.820 

6.000 

0.780 

0.000 

0.000 

0.000 

0.000 

6.000 

1.185 

8.000 

0.815 

9.000 

0.835 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

8.000 

1.265 

9.000 

0.850 

10.000 

O.BIO 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

10.000 

1.320 

10.000 

0.855 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

12.000 

1.350 

O.OXJO' 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

13.000 

1.360 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

14.000 

1.340 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

1.300 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

20.000 

1.240 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


ALPHA 


CL VALUES 
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AIRFOIL SECTION 

NACA 16106 

NACA 16109 

NACA 16109 

NACA 16109 

NACA 16109 

NACA 16109 

TABLE DATA SOURCE 

NACA TN-1566 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 

3 

3 

3 

3 

3 

3 

DESIGN LIFT COEFf 

O.lOO 

O.IOO 

O.IOO 

0.100 

0.100 

0.100 

THICKNESS / CHORD 

0*060 

0.090 

0.090 

0.090 

0.090 

0.090 

MACH NUMBER 

0*800 

0.300 

0.450 

0.600 

0.700 

0.750 

ZERO LIFT ALPHA 

-0.950 

-l.OOO 

-1.100 

-1.000 

-1.000 

-0.650 

EXTRAP COEFF KCLI 

0.760 

0.730 

0.730 

0.730 

0.730 

0.730 

ALPHA, CL VALUES 

-2.000 -0.175 

-2.000 -0.085 

-2.000 -0.080 

-2.000 -0.090 

-2.000 -O.IOO 

-2.000 -0.110 


-0.950 

0.000 

-1.000 

0.000 

0.000 

0.095 

0.000 

0.100 

0.000 

0.115 

-1.000 *0.025 


1.770 

0.A50 

0.000 

0.090 

2.000 

0.295 

2.000 

0.320 

2.000 

0.365 

0.000 

0.125 


0.000 

0.000 

2.000 

0.295 

4.000 

0.470 

4.000 

0.500 

4.000 

0.520 

2.000 

0.420 


0.000 

0.000 

4.000 

0.465 

6.000 

0.665 

6.000 

0.700 

0.000 

0.000 

3.770 

0.630 


0.000 

0.000 

6.000 

0.660 

8.000 

0.785 

7.000 

0.750 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

8.000 

0.790 

9.000 

0.805 

8.000 

0.780 

0.000 

d.ooo 

0.000 

0.000 


0.000 

0.000 

10.000 

0.835 

10.000 

0.795 

10.000 

0.790 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

11.000 

0.850 

11.000 

0.775 

12.000 

0.785 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

12.000 

0.755 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


AIRFOIL SECTION 

NACA 

16109 

NACA 

16115 

NACA 

16115 

NACA 16115 

NACA 16115 

NACA 16130 

TABLE DATA SOURCE 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 


3 


3 


3 

3 

3 

3 

DESIGN LIFT COEFF 

0. 

100 

0. 

100 

0. 

100 

O.IOO 

O.IOO _ 

0.100 

THICKNESS / CHORD 

0. 

090 

0. 

150 

0. 

150 

0.L50 

0.150 

0.300 — — 

MACH NUMBER 

0. 

800 

0. 

300 

0. 

450 

0.600 

0.700 ■- 

— 0.300 

ZERO LIFT ALPHA 

-1. 

000 

-0. 

800 

-0. 

800 

-0.800 

-0.600 

0.500 

EXTRAP COEFF KCLl 

0. 

730 

0. 

600 

0. 

600 

0.600 

0.600 

-0.190 

alpha, CL VALUES 

-2.000 

-0.130 

-2.000 

-0.110 

-2.000 

-O.llO 

-2.000 -0.115 

-2.000 -0.130 

-2.000 -0.110 


-1.000 

0.000 

-0.800 

0.000 

0.000 

0.080 

0.000 0.085 

-0.600 0.000 

0.000 -0.025 


1.770 

0.360 

0.000 

0.080 

2.000 

0.260 

2.000 0.280 

0.000 0.085 

0.500 0.000 


0.000 

0.000 

2.000 

0.260 

4.000 

0.330 

4.000 0.355 

2.000 0.295 

2.000 0.100 


0.000 

0.000 

4.000 

0.350 

5.000 

0.360 

5.000 0.405 

3.770 0.400 

4.000 0.195 


0.000 

0.000 

5.000 

0.390 

6.000 

0.445 

6.000 0.470 

0.000 0.000 

6.000 0.245 


0.000 

0.000 

6.000 

0.445 

8.000 

0.620 

8.000 0.620 

0.000 0.000 

8.000 0.260 


0.000 

0.000 

7.000 

0.515 

10.000 

0.790 

10.000 0.860 

0.000 0.000 

10.000 0.295 


0.000 

0.000 

8.000 

0.620 

11.000 

0.800 

11.000 0.830 

0.000 0.000 

11.770 0.345 


0.000 

0.000 

10.000 

0.785 

11.770 

0.780 

11.770 0.690 

0.000 0.000 

0.000 0.000 


0.000 

0.000 

11.770 

0.855 

0.000 

0.000 

0.000 0.000 

0.000 0.000 

0.000 0.000 
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PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

NACA 16130 

NACA 

16130 

NACA 

16306 

NACA 

16306 

NACA 

16306 

NACA 16306 

TABLE DATA SOURCE 

NACA TN-15A6 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 

3 


3 


3 


3 


3 

3 

DESIGN LIFT COEFF 

0*100 

0. 

100 

0. 

300 

0. 

300 

0. 

300 

0.300 

THICKNESS / CHORD 

0.300 

0. 

300 

0. 

060 

0. 

060 

0. 

060 

0.060 

MACH NUMBER 

0.A50 

0. 

600 

0. 

300 

0. 

450 

0. 

600 

0.700 

ZERO LIFT ALPHA 

0.500 

-0. 

500 

-2. 

400 

-2. 

400 

-2. 

300 

-2.300 

EXTRAP COEFF KCLI 

-0.190 

-0. 

190 

0. 

760 

0. 

760 

0. 

760 

0.760 

ALPHA, CL VALUES 

-2.000 -O.IAO 

-2.000 

-0.155 

-4.000 

-0.190 

-4.000 

-0. 190 

-4.000 

-0.220 

-4.000 -0.260 


0.000 -0.030 

-0.500 

0.000 

-2.400 

0.000 

-2.000 

0.045 

-2.000 

0.035 

.3.770 

0.920 


2.000 

0.080 

0.000 

0.030 

-2.000 

0.045 

0.000 

0.270 

0.000 

0.295 

0.000 

0.000 


4.000 

0.160 

2.000 

0.030 

0.000 

0.265 

2.000 

0.490 

1.000 

0.420 

0.000 

0.000 


6.000 

0.180 

4.000 

0.085 

2.000 

0.490 

4.000 

0.675 

2.000 

0.540 

0.000 

0.000 


8.000 

0.185 

6.000 

0.105 

4.000 

0.640 

6.000 

0.665 

3.000 

0.650 

0.000 

0.000 


10.000 

0.235 

8.000 

0.135 

6.000 

0.800 

8.000 

0.965 

4.000 

0.780 

0.000 

0.000 


11.770 

0.290 

9.770 

0.190 

8.000 

0.960 

9.000 

0.980 

5.000 

0.895 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

9.770 

1.010 

9.770 

0.980 

6.000 

0.970 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

7.770 

1.010 

0.000 

0.000 


AIRFOIL SECTION 

NACA 16306 

NACA 16309 

NACA 16309 

NACA 16309 

NACA 16309 

NACA 16309 

TABLE DATA SOURCE 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 

3 

3 

3 

3 

3 

3 

DESIGN LIFT COEFF 

0.300 

0.300 

0.300 

0.300 

0.300 

0.300 

THICKNESS / CHORD 

0.060 

0.090 

0.090 

0.090 

0.090 

0.090 

MACH NUMBER 

0.750 

0.300 

0.450 

0.600 

0.700 

0.750 

ZERO lift ALPHA= 

-2.200 

-2.450 

-2.600 

-2.500 

-2.500 

-2.350 

EXTRAP COEFF KCLI 

0.760 

0.730 

0.730 

0.730 

0.730 

0.730 


>4.000 

-0.340 

-4.000 

-0.155 

-4.000 

-0.160 

-4.000 

-0.190 

-4.000 

-0.190 

-4.000 

-0.285 

■2.200 

0.000 

-2.450 

0.000 

-2.000 

0.055 

-2.000 

0.050 

0.000 

0.320 

-2.350 

0.000 

0.000 

0.360 

-2.000 

0.045 

0.000 

0.250 

0.000 

0.270 

3.770 

0.890 

1.770 

0.650 

1.770 

0.730 

0.000 

0.240 

2.000 

0.455 

2.000 

0.490 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

2.000 

0.450 

4.000 

0.620 

4.000 

0.690 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

4.000 

0.610 

6.000 

0.800 

6.000 

0.900 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

6.000 

0.750 

8.000 

0.930 

8.000 

1.080 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

8.000 

0.905 

9.000 

0,955 

9.000 

1.070 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

9.000 

0.950 

10.000 

0.950 

9.770 

0.950 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

10.000 

0.975 

11.770 

0.920 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

ll.OOO 

0.980 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000. 

0.000 

0.000 

0.000 

11.770 

0.960 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


ALPHA, CL VALUES 
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PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

NACA 

16312 

NACA 

16312 

NACA 

16312 

NACA 

16312 

NACA 

16315 

NACA 16315 

table data source 

NACA TN-15A6 

NACA TN-1546 

NACA TN-1546 

NACA TN-15A6 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 


3 


3 


3 


3 


3 

3 

DESIGN lift COEFf 

0 . 

300 

0. 

300 

0. 

300 

0. 

300 

0. 

300 

0.300 

THICKNESS / CHORD 

0. 

120 

0. 

120 

0. 

120 

0. 

lio 

0. 

150 

0.150 

PACH number 

0, 

300 

0. 

450 

0. 

600 

0. 

700 

0. 

300 

0.450 

ZERO LIFT ALPHA 

-2. 

600 

-2. 

800 

-2. 

600 

-3. 

000 

-2. 

100 

-3.000 

EXTRAP COEFF KCLI 

0. 

690 

0. 

690 

0. 

690 

0. 

690 

0. 

600 

0.600 

ALPHA, CL VALUES 

-4.000 

-O.llO 

-4.000 

-O.lOO 

-4.000 

-0.105 

-4.000 

-0.080 

-4.000 

-0.070 

-4.000 -0.045 


-2.600 

0.000 

-2.000 

0.065 

-2.000 

0.080 

-3.000 

0.000 

-3.000 

rO.040 

-2.000 

0.050 


0.000 

0.215 

0.000 

0.230 

0.000 

0.265 

0.000 

0.285 

-2.100 

0.000 

-l.OOO 

O.llO 


2.000 

0,410 

2.000 

0.420 

2.000 

0.490 

2.000 

0.505 

0.000 

0.195 

0.000 

0.200 


3.000 

0.485 

4.000 

0.550 

3.000 

0.570 

3.770 

0.705 

2.000 

0.370 

2.000 

0.400 


4.000 

0.540 

5.000 

0.620 

4.000 

0.615 

0.000 

0.000 

4.000 

0.515 

4.000 

0.520 


6.000 

0.700 

6.000 

0.715 

5.000 

0.680 

0.000 

0.000 

5.000 

0.540 

6.000 

0.580 


8,000 

0,835 

8.000 

0.900 

6.000 

0.770 

0.000 

0.000 

6.000 

0.570 

7.000 

0.650 


10.000 

0.935 

9.000 

0.940 

7.770 

0.940 

0.000 

0.000 

7.000 

0.655 

6.000 

0.750 


11.000 

0.965 

9,770 

0.950 

0.000 

0.000 

0.000 

0.000 

8.000 

0.760 

10.000 

0.890 


11.770 

0.960 

0.000 

0,000 

0.000 

0.000 

0.000 

0.000 

10.000 

0.885 

11.770 

0.960 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

o.’ooo 

0.000 

11.000 

0.915 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

11.770 

0.930 

0.000 

0.000 


AIRFOIL SECTION 

NACA 16315 

NACA 

16315 

NACA 16321 

NACA 16321 

NACA 16321 

NACA 16506 

TABLE data SOURCE 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 

3 


3 

3 

3 

3 

3 

DESIGN LIFT COEFf 

0.300 

0. 

300 

0.300 

0.300 

0.300 

0.500 

THICKNESS / CHORD 

0.150 

0. 

150 

0.210 

0.210 

0.210 

0.060 

MACH NUMBER 

0.600 

0. 

700 

0.300 

0.450 

0.600 

0.300 

ZERO LIFT ALPHA 

-3.600 

-3. 

750 

-1.300 

-1.300 

-l.lOO 

-3.900 

EXTRAP COEFF KCLl 

0,600 

0. 

600 

0.370 

0.370 

0.370 

0.760 

ALPHA, CL VALUES 

-4.000 -0.020 

-3.750 

0.000 

-4.000 -O.lOO 

-4.000 -0.030 

-4.000 

0.000 

-3.900 

0.000 


-2,000 

0.075 

-2.000 

0.065 

-3.000 -0.090 

-3.000 -0,070 

-2.340 -O.lOO 

1.000 

0.525 


-l.OOO 

0.115 

-1.000 

0.130 

-2.000 -0.060 

-2.000 -0.060 

-1.100 

0.000 

2.000 

0.625 


0.000 

0.200 

0.000 

0.190 

-1.300 

0,000 

2.000 

0.255 

3.000 

0.345 

4.000 

0.740 


2.000 

0.415 

1.000 

0.290 

2.000 

0.270 

3.000 

0.330 

4.000 

0.410 

6.000 

0.895 


3,000 

0.515 

2.000 

0.440 

4.000 

0.425 

4.000 

0.400 

6.000 

0.430 

8.000 

1.050 


4.000 

0.570 

3.000 

0.580 

5.000 

0.460 

8.000 

0.495 

8.000 

0.480 

9.000 

1.090 


6.000 

0.620 

4.000 

0.725 

6.000 

0.4B5 

11.770 

0.680 

10.000 

0.580 

0.000 

0.000 


8.000 

0.790 

7.000 

0.725 

8.000 

0.500 

0.000 

0.000 

11.770 

0.790 

0.000 

0.000 


10.000 

0.940 

7.770 

0.740 

11.770 

0.720 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


11.770 

1.050 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 
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AIRFOIL SECTION 

TABLE DATA SOURCE 

AIRFOIL SER CODE 

DESIGN LIFT COEFf 
THICKNESS / CHORO 
MACH NUMBER 
ZERO lift alpha 
EXTRAP COEFF KCLl 

ALPHA* CL VALUES 


AIRFOIL SECTION 

TABLE DATA SOURCE 

AIRFOIL SER CODE 

DESIGN LIFT COEFf 
THICKNESS / CHORO 
MACH NUMBER 
ZERO LIFT ALPHA 
EXTRAP COEFF KCLI 


PROPELLER BLADE SECTION AIRFOIL TABLES 


NACA 16506 

NACA 16506 

NACA 16506 

NACA TN-15A6 

NACA TN-15A6 

NACA TN-1546 

3 

3 

3 

0.500 

0.500 

0.500 

0.060 

0.060 

0.060 

0.A50 

0.600 

0.700 

-3.900 

-3.700 

-3.500 

0.760 

0.760 

0.760 

‘A. 000 -0.010 

-4.000 -0.040 

-4.000 -0.080 

2.000 0.660 

1.000 0.605 

-2.000 0.230 

3.000 0.720 

2.000 0.730 

1.770 0.830 

A.OOO 0.795 

3.770 0.765 

0.000 0.000 

6.000 0.970 

0.000 0.000 

0.000 0.000 

7.770 1.085 

0.000 0.000 

0*000 0.000 


NACA 

16509 

NACA 16509 

NACA 

16509 

NACA 

TN-1546 

NACA TN-1546 

NACA 

TN-1546 


3 

3 


3 


NACA 16506 

NACA 16509 

NACA 16509 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

3 


3 

0.500 

0.500 

0.500 

0.060 

0.090 

0.090 

0.750 

0.300 

0.450 

-3.400 

-4.200 

-4.250 

0.760 

0.730 

0.730 

•3.400 0.000 

•4.200 o.odo 

-4.000 0.025 

•2.000 0.240 

2.000 0.615 

2.000 0.645 

0.000 0.595 

4.000 0.710 

4.000 0.730 

1.770 0.850 

7.770 0.990 

5.000 0.805 

0.000 0.000 

0.000 0.000 

6.000 0.905 

0.000 0.000 

0.000 0.000 

7.770 1.040 

NACA 16512 

NACA 16512 

NACA 16512 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

3 

3 

3 


0. 

500 

0.500 

0.500 

0. 

090 

0.090 

0.090 

0. 

600 

0.700 

0.750 

-4. 

200 

-4.200 

-4.100 

0. 

730 

0.730 

0.730 

•4.000 

0.020 

-5.000 -0.085 

-4.100 

0.000 

1.000 

0.605 

-4.000 

0.020 

0.000 

0.560 

2.000 

0.720 

1.770 

0.780 

1.770 

0.750 

4.000 

0.810 

0.000 

0.000 

0.000 

0.000 

5.770 

0.930 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


0. 

500 

0.500 

0.500 

0* 

120 

0.120 

0.120 

0. 

300 

0.450 

0.600 

-4. 

200 

-4;250 

-4.200 

0. 

690 

0.690 

0.690 

-4.200 

0.000 

-4.000 

0.025 

-4.000 

0.025 

2.000 

0.545 

2.000 

0.570 

0.000 

0.420 

4.000 

0.700 

3.000 

0.645 

2.000 

0.620 

6.000 

0.770 

4.000 

0.700 

3.000 

0.705 

8.000 

0.905 

6.000 

0.790 

4.000 

0.77$ 

10.000 

1.010 

7.770 

0.910 

5.770 

0.840 

11.770 

1.070 

0.000 

0.000 

0.000 

0.000 


ALPHA 


CL VALUES 
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PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

NACA 16512 

NACA 16512 

NACA 16515 

NACA 16515 

NACA 16515 

NACA 16515 

TABLE DATA SOURCE 

NACA TN-15A6 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 

3 

3 

3 

3 

3 

3 

DESIGN LIFT COEFP 

0.500 

0.500 

0.500 

0.500 

0.500 

0.500 

THICKNESS / CHORD 

0.120 

0.120 

0.150 

0.150 

0.150 

0.150 

MACH NUMBER 

0.700 

0.750 

0.300 

0.450 

0.600 

0.700 

ZERO LIFT ALPHA 

-4.100 

-3.600 

-4.400 

-4.500 

-4.600 

-4.700 

EXTRAP COEFF KCLI 

0.690 

0.690 

0.600 

0.600 

0.600 

0.600 


ALPHA, CL VALUES 

-4.000 

0.005 

-3.600 

0.000 

-4.400 

0.000 

-4.000 

0.040 

-4.000 

0.045 

-4.000 

0.065 


-2.000 

0.225 

-2.000 

0.200 

-4.000 

0.025 

-2.000 

0.195 

-2.000 

0.220 

-2.000 

0.235 


0.000 

0.440 

0.000 

0.380 

-2.000 

0.155 

0.000 

0.325 

0.000 

0.325 

-l.OOO 

0.265 


2.000 

0.675 

2.000 

0.530 

0.000 

0.305 

2.000 

0.520 

2.000 

0.525 

0.000 

0.315 


3.000 

0.780 

3.770 

0.680 

2.000 

0.495 

3.000 

0.600 

4.000 

0.720 

2.000 

0.530 


3.770 

0.825 

O.QOO 

0.000 

4.000 

0.660 

4.000 

0.655 

6.000 

0.780 

3.770 

0.710 


0.000 

0.000 

0.000 

0.000 

6.000 

0.710 

6.000 

0.715 

7.000 

0.840 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

8.000 

0.815 

8.000 

0.825 

7.770 

0.915 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

10.000 

0.920 

10.000 

0.940 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

12.000 

l.OlO 

12.000 

1.025. 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

13.770 

1.030 

13.770 

1.010 

0.000 

0.000 

0.000 

0.000 


AIRFOIL SECTION 

NACA 16515 

NACA 16521 

NACA 16521 

NACA 16521 

NACA 16521 

NACA 16530 

TABLE DATA SOURCE 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 


AIRFOIL SER CODE 


3 


3 


3 


3 

3 

3 

DESIGN lift CQEFF 

0. 

500 

0. 

500 

0. 

500 

0. 

500 

0.500 

0.500 

THICKNESS / CHORD 

0. 

150 

0. 

210 

0. 

210 

0. 

210 

0.210 

0.300 

MACH NUMBER 

0. 

750 

0. 

300 

0. 

450 

0. 

600 

0.700 

0.300 

ZERO LIFT ALPHA 

-1. 

600 

-2. 

300 

-2. 

000 

-1. 

600 

-0.400 

1.500 

EXTRAP COEFF KCLI 

0. 

600 

0. 

370 

0. 

370 

0. 

370 

0.370 

-0.190 

ALPHA, CL VALUES 

-2.000 

-0.045 

-2.000 

0.030 

-2.000 

0.070 

-2.000 

0.120 

-2.000 -0.210 

0.000 -0.100 


-1.600 

0.000 

3.000 

0.455 

-1.000 

0.000 

-1.000 

0.120 

-1.000 -0.080 

6.000 

0.300 


0.000 

0.145 

4.000 

0.540 

0.000 

0.180 

0.000 

0.170 

-0.400 

0.000 

8.000 

0.405 


1.000 

0.210 

5.000 

0.605 

2.000 

0.360 

3.000 

0.440 

0.000 

0.035 

9.770 

0.470 


2.000 

0.295 

6.000 

0.650 

4.000 

0.520 

4.000 

0.530 

2.000 

0.020 

0.000 

0.000 


3.770 

0.480 

8.000 

0.665 

6.000 

0.620 

5.000 

0.590 

3.000 

0.190 

0.000 

0.000 


0.000 

0.000 

10.000 

0.750 

8.000 

0.670 

6.000 

0.610 

3.770 

0.270 

0.000 

0.000 


0.000 

0.000 

11.770 

0.860 

11.770 

0.640 

7.000 

0.660 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

B.OOO 

0.750 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

9.770 

0.910 

0.000 

0.000 

0.000 

0.000 
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PftOPeiLER 81A0E SeCHON AIRFOIL TABLES 


AIRFOIL SECTION 

NACA 16530 

NACA 16530 

NACA 16709 

NACA 16709 

NACA 16709 

NACA 16709 

TABLE DATA SOURCE 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 

3 

3 

3 

3 

3 

3 

DESIGN lift COEFF 

0.500 

0.500 

0.700 

0.700 

0.700 

0.700 

THICKNESS / CHORO 

0.300 

0.300 

0.090 

0.090 

0.090 

0.090 

MACH NUMBER 

0.A50 

0.600 

0.300 

0.450 

0.600 

0.700 

ZERO LIFT ALPHA 

2.200 

3.200 

-5.400 

-5.500 

-5.500 

-5.600 

EXTRAP COEFF KCLI 

-0.190 

-0.190 

0.730 

0.730 

0.730 

0.730 


ALPHA, CL VALUES 

0.000 

-0.120 

0.000 

-0.280 

-6.000 

-0.065 

-6.000 

-0.060 

-6.000 

-0.050 

-6.000 

-0.020 


2.000 

-0.015 

3.200 

0.000 

-5.400 

0.000 

-4.000 

0.145 

-4.000 

0.150 

-5.000 

0.040 


4.000 

0.U5 

4.000 

0.070 

-4.000 

0.140 

0.000 

0.5B0 

-2.000 

0.395 

-4.000 

0.150 


6.000 

0.245 

6.000 

0.120 

-2.000 

0.345 

1.000 

0.690 

0.000 

0.645 

-2.000 

0.445 


B.OOO 

0.355 

8.000 

0.280 

0.000 

0.550 

2.000 

0.780 

2.000 

0.855 

0.000 

0.750 


9. 770 

0.415 

9.770 

0.430 

2.000 

0.755 

4.000 

0.660 

4.000 

1.010 

2.000 

0.915 


0.000 

0.000 

0.000 

b.ooo 

3.000 

0.615 

6.000 

1.005 

5.770 

I.LIO 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

4.000 

0.850 

8.000 

1.140 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

5.000 

0.895 

9.000 

1.200 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

6.000 

0.965 

9.770 

1.210 

0.000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

7.770 

1.060 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


AIRFOIL SECTION 

NACA L6709 

NACA 167U9 

NACA 16712 

NACA 16712 

NACA 16712 

NACA 16712 

TABLE DATA SOURCE 

NACA TN-1546 

NACA TN-1546 

NACA TN-1546 

NACA TN-1SA6 

NACA TN-1546 

NACA TN-1546 

AIRFOIL SER CODE 

3 

3 

3 

3 

3 

3 


DESIGN LIFT COEFF 
THICKNESS / CHORD 
MACH NUMBER 
ZERO LIFT ALPHA 
fcXTRAP COEFF KCLI 


0. 

700 

0.700 

0.700 

0.700 

0. 

700 

0.700 

0. 

090 

0.090 

0.120 

0.120 

0. 

120 

0.120 

0. 

750 

0.775 

0.300 

0.450 

0. 

600 

0.700 

-5. 

400 

-3.500 

-5.500 

-5.600 

-6. 

000 

-6.000 

0. 

730 

0.730 

0.690 

0.690 

0. 

690 

0.690 

>4.000 

0.150 

-4.000 -0.100 

-6.000 -0.040 

-6.000 -0.035 

-6.000 

0.000 

-4.000 

0.150 

•2.000 

0.375 

-3.500 

0.000 

-4.000 

0*120 

-4.000 

0.130 

-5.000 

0.060 

-2.000 

0.365 

0.000 

0.585 

-2.000 

0.205 

0.000 

0.495 

-2.000 

0.340 

-4.000 

0.150 

0.000 

0.575 

l.OOO 

0.620 

0.000 

0.460 

2.000 

0.665 

2.000 

0.740 

2.000 

0.825 

1.770 

0.760 

2.000 

0.670 

1.770 

0.535 

4.000 

0.B85 

4.000 

0.910 

3.770 

1.040 

0.000 

0.000 

3.770 

0*820 

O.OOG 

0.000 

6.000 

0.930 

6.000 

0.960 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

8.000 

1*025 

8.000 

1.085 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

10.000 

1.140 

9.770 

1.175 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

11.770 

1.210 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


ALPHA, CL values 
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PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

NACA 

16715 

NACA 

16715 

NACA 16715 






TABLE DATA SOURCE 

NACA TN-1546 

NACA TN-15A6 

NACA TN-1546 






AIRFOIL SER CODE 


3 


3 

3 


0 

0 


0 

DESIGN LIFT COEFf 

0. 

700 

0. 

700 

0.700 

0. 

000 

0.000 

0. 

000 

THICKNESS / CHORD 

0. 

150 

0. 

150 

0.150 

0. 

000 

0.000 

0. 

000 

hACH NUMBER 

0, 

300 

0. 

450 

0.600 

0. 

000 

0.000 

0. 

000 

ZERO lift ALPHA 

-5. 

AOO 

-5. 

500 

-5.400 

0. 

000 

0.000 

0. 

000 

EXTRAP COEFF KCLI 

0. 

600 

0. 

600 

0.600 

0. 

000 

0.000 

0. 

000 

ALPHA, CL VALUES 

-6.000 

-0.0A5 

-6.000 

-0.050 

-6.000 -0.040 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


-5.A00 

0.000 

-4.000 

0.130 

-5.400 

0.000 

0.000 

0.000 

0.000 0.000 

0,000 

0.000 


-A. 000 

O.llO 

-2.000 

0.300 

-4.000 

0.120 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


-2.000 

0.295 

0.000 

0.460 

-2.000 

0.325 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


0.000 

0.AA5 

2.000 

0.660 

-1.000 

0.390 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


2.000 

0.625 

4.000 

0.850 

0.000 

0.470 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


A. 000 

0.800 

5.000 

0.895 

2.000 

0.720 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


5.000 

0.865 

6.000 

0.915 

3.000 

0.840 

0.000 

0.000 

0.000 0,000 

0.000 

0.000 


6.000 

0.905 

6.000 

0.975 

4.000 

0.930 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


8.000 

0.950 

9.770 

1.090 

6.000 

1.050 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


10.000 

1.050 

0.000 

0.000 

7.770 

1.150 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 


11.770 

l.llO 

0.000 

0.000 

9.770 

1.260 

0.000 

0.000 

0.000 0.000 

0.000 

0.000 
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i ‘ 

PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

NACA 6A-006 

NACA 64-009 

NACA 64-012 

NACA 64-015 

NACA 64-018 

NACA 64-021 

TABLE DATA SOURCE 

NACA TR-82A 

NACA TR-8Z4 

NACA TR-824 

NACA TR-824 

NACA TR-824 

NACA TR-824 

AIRFOIL SER CODE 

A 

4 

4 

4 

4 

4 

DESIGN LIFT COEFF 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

THICKNESS / CHORD 

O.OSO 

0.090 

0.120 

0.150 

0.180 

0.210 

HACH NUMBER 

0.150 

0.150 

0.150 

0.150 

0.150 

0.150 

ZERO LIFT ALPHA 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

EXTRAP CGEhF KCLI 

0.7A0 

0.740 

0.740 

0.740 

0.740 

0.740 

ALPHA, CL VALUES 

-A. 000 “0.^30 

-6.000 -0.700 

-6.000 -0.650 

-6.000 -0.670 

-6.000 -0.650 

-6.000 -0.630 


4.000 

0.430 

0-000 

0.000 

6.000 

0.650 

6.000 

0.670 

6.000 

0.650 

6.000 

0.630 


6.000 

0.620 

6.000 

0.620 

8.000 

0.830 

8.000 

0.870 

6.000 

0.640 

8.000 

0.600 


8. COO 

0.790 

8.000 

0,770 

10.000 

0.930 

10.000 

1.000 

10.000 

0.980 

10.000 

0.900 


10.000 

0.810 

10.000 

0.B70 

12.000 

0,910 

12.000 

1.100 

12.000 

1.040 

12.000 

0.980 


12,000 

0.770 

12.000 

0.890 

14.000 

0.850 

14.000 

0.900 

14.000 

1.070 

14.000 

l.OlO 


0.000 

0.000 

14.000 

0.870 

16.000 

0.800 

0.000 

0.000 

16.000 

1.040 

16.000 

1.030 


0.000 

0.000 

16.000 

0.800 

0.000 

0.000 

0.000 

0.000 

17.200 

0.640 

17.000 

1.030 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0-000 

0.000 

0.000 

18.000 

0.900 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

19.000 

0.700 


0.000 

0.000 

0.000 

0,000 

0.000 

0.000 

0.000 

0,000 

0.000 

0.000 

20.000 

0.680 


AIRFOIL SECTION 

NACA 64-206 

NACA 64-209 

NACA 64-212 

NACA 64-215 

NACA 64-218 

NACA 64-221 

TABLE DATA SOURCE 

NACA TR-824 

NACA TR-824 

NACA TR-824 

NACA TR-824 

NACA TR-824 

NACA TR-024 

AIRFOIL SER CODE 

4 

4 

4 

4 

4 

4 

DESIGN LIFT COEFF 

0.200 

0.200 

0.200 

0.200 

0.200 

(. 0.200 

THICKNESS / CHORO 

0.060 

0.090 

0.120 

0.150 

0.160 

0.210 

MACH NUMBER 

0.150 

0.150 

0.150 

0.150 

0.150 

0.150 

ZERO LIFT ALPHA 

-1.330 

-1.400 

-1.240 

-1.440 

-1.220 

-1.260 

EXTRAP COEFF KCLI 

0.740 

0.740 

0.740 

0.740 

0.740 

0.740 


-6.000 

-0.490 

-6.000 

-0;490 

-6.000 

-0.520 

-6.000 

-0.490 

-6.000 

-0.530 

-6.000 

-0.540 

-1.330 

0.000 

-1.400 

0.000 

-1.240 

0.000 

-1.440 

0.000 

-1.220 

0.000 

-1.260 

0.000 

4.000 

0.560 

6.000 

0.790 

6.000 

0.790 

6.000 

0.800 

6.000 

0.800 

4.000 

0.600 

6.000 

0,770 

8.000 

0.970 

8.000 

0.980 

6.000 

0.990 

6.000 

0.930 

6.000 

0.800 

6.000 

0.900 

10.000 

1.050 

10.000 

1.125 

10.000 

1.120 

10.000 

1.060 

8.000 

0.940 

10.000 

1,000 

12.000 

1.040 

11.000 

1.160 

12.000 

1.200 

12.000 

1.135 

10.000 

1.030 

12.000 

l.OlO 

14.000 

1.010 

12.000 

1.130 

13.000 

1.200 

14.000 

1.180 

12.000 

1.090 

14.000 

0.970 

16.000 

0.960 

14.000 

l.OlO 

14.000 

1.150 

16.000 

1.200 

14.000 

1.130 

16.000 

0.910 

10.000 

0.860 

0.000 

0.000 

16.000 

1.020 

17.000 

1.200 

16.000 

1.140 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

18.000 

0.790 

18.000 

1.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

20.000 

0.760 

20.000 

0.920 


ALPHA* CL values 
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PROPELLER BLADE SECTION AIRFOIL TABLES 


AIRFOIL SECTION 

NACA 

64-A09 

NACA 

64-412 

NACA 

64-415 

NACA 

64-418 

NACA 

64-421 



TABLE DATA SOURCE 

NACA TN-1945 

NACA 

TR-824 

NACA 

TR-824 

NACA 

TR-824 

NACA 

TR-824 



airfoil ser code 


4 


4 


4 


4 


4 


0 

DESIGN LIFT COEFF 

0. 

400 

0. 

400 

0. 

400 

0. 

400 

0. 

400 

0.000 

THICKNESS / CHORD 

0, 

090 

0. 

120 

0. 

150 

0. 

180 

0. 

210 

0. 

000 

MACH NUMBER 

0. 

150 

0. 

150 

0. 

150 

0. 

150 

0. 

150 

0. 

000 

ZERO LIFT ALPHA 

-2. 

540 

-2. 

860 

-2. 

020 

-2. 

800 

-2. 

570 

0. 

000 

EXTRAP COEFF KCLI 

0. 

740 

0. 

740 

0. 

740 

0. 

740 

0. 

740 

0. 

000 

ALPHA, CL VALUES 

-6.000 

-0.360 

-6.000 

-0.340 

-6.000 

-0.360 

-6.000 

-0.360 

-6.000 

-0.400 

0.000 

0.000 


-2.5A0 

0.000 

-2.860 

0.000 

0.000 

0.320 

-2.800 

0.000 

-2.570 

0.000 

0.000 

0.000 


6.000 

0.890 

6.000 

0.960 

6.000 

0.950 

2.000 

0.540 

0.000 

0.300 

0.000 

0.000 


8.000 

1.040 

0.000 

1.150 

8.000 

1. 110 

4.000 

0.740 

2.000 

0.530 

0.000 

0.000 


10.000 

i.no 

10.000 

1.290 

10.000 

1.220 

6.000 

0.930 

4.000 

0.720 

0.000 

0.000 


11.000 

1.120 

11.000 

1.340 

12.000 

1.290 

8.000 

1.080 

6.000 

0.890 

0.000 

0.000 


12.000 

1.090 

12.000 

1.340 

13.000 

1.300 

10.000 

1.170 

6.000 

1.000 

0.000 

0.000 


lA.OOO 

1.020 

14.000 

1.220 

14.000 

1.290 

12.000 

1.230 

10.000 

1.070 

0.000 

0.000 


15.000 

0.960 

16.000 

1.100 

16.000 

1.240 

14.000 

1.240 

12.000 

1.120 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

18.000 

1.050 

16.000 

1.230 

14.000 

1.160 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

1.170 

16.000 

1.160 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

18.000 

1.160 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

20.000 

1.000 

0.000 

0.000 


AIRFOIL SECTION 

NACA 

65-006 

NACA 

65-009 

NACA 

65-012 

NACA 65-015 

NACA 

65-018 

NACA 65-021 

TABLE DATA SOURCE 

NACA 

TR-824 

NACA 

TR-824 

NACA 

TR-824 

NACA TR-824 

NACA 

TR-824 

NACA TR-824 

AIRFOIL SER CODE 


5 


5 


5 

5 


5 

5 

design lift COEFF 

0. 

000 

0. 

000 

0. 

000 

0.000 

0. 

000 

0.000 

thickness / CHORD 

0. 

060 

0. 

090 

0. 

120 

' 1 0.150 

0. 

180 

0.210 

MACH NUMBER 

0. 

150 

0. 

150 

0. 

150 

0.150 

0. 

150 

O.ISQ 

ZERO lift alpha 

0. 

000 

0. 

000 

0. 

OOO 

0.000 

0. 

000 

0.000 

EXTRAP COEFF KCLI 

0. 

740 

0. 

740 

0. 

740 

0.740 

0. 

740 

0.740 

alpha, cl values 

-6.000 

-0.640 

-6.000 

-0.630 

-6.000 

-0.650 

-6.000 -0.630 

-6.000 

-0.600 

-6.000 -0.560 


0.000 

0.000 

6.000 

0.630 

0.000 

0.000 

-4.000 -0.440 

-4.000 

-0.420 

-4.000 -0.390 


4.000 

0.420 

8.000 

0.820 

6.000 

0.670 

6.000 

0.660 

0.000 

0.000 

0.000 

0.000 


6.000 

0.620 

10.000 

0.900 

8.000 

0.870 

8.000 

0.840 

6.000 

0.620 

4.000 

0.400 


8.000 

0.770 

11.000 

0.920 

10.000 

0.970 

10.000 

1.000 

8.000 

0.600 

6.000 

0.590 


10.000 

0.870 

12.000 

0.910 

12.000 

0.950 

11.000 

1.030 

10.000 

0.930 

6.000 

0.740 


12.000 

0.920 

14.000 

0.850 

14.000 

0.900 

12.000 

1.020 

12.000 

1.020 

10.000 

0.850 


14.000 

0.880 

0.000 

0.000 

16.000 

0.840 

14.000 

0*880 

14.000 

1.070 

12.000 

0.930 


16.000 

0.790 

0.000 

0.000 

0.000 

0.000 

16.000 

0.790 

16.000 

0.900 

14.000 

1.020 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

0.680 

0.000 

0.000 

16.000 

1.070 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

1.060 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

20.000 

0.860 
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airfoil section 

TABUE OATA SOURCE 

AIRFOIL SER CODE 

DESIGN lift COEFF 
THICKNESS / CHORD 
KACH number 
ZERO LIFT ALPHA 
exTRAP COEFF KCLl 

ALPHAt CL values 


AIRFOIL SECTION 

TABLE DATA SOURCE 

AIRFOIL SER CODE 

DESIGN lift COEFF 
THICKNESS / CHORD 
MACH number 
ZERO LIFT ALPHA 
EXTRAP COEFF KCLl 


PROPELLER BLADE SECTION AIRFOIL TABLES 


NACA 65-206 

NACA 65-209 

NACA 65-212 

NACA 65-215 

NACA 65-218 

NACA 65-221 

NACA TR-82A 

NACA TR-B24 

NACA TR-824 

NACA TR-B24 

NACA TR-B24 

NACA TR-B24 

5 

5 

5 

5 

5 

5 

0*200 

0*200 

0*200 

0*200 

0.200 

0«200 

0.060 

0.090 

0.120 

0.150 

o.iso 

0.210 

0*150 

0*150 

0.150 

0.150 

0.150 

0.150 

-1.330 

-1.280 

-1.180 

-1.250 

-1.270 

-1.530 

0.7A0 

0.7A0 

0.740 

0.740 

0.740 

0.740 


-6.000 

-0.490 

-6.000 

-0.500 

-6.000 

-0.500 

-6.000 

-0.500 

-6.000 

-0.470 

-6.000 

-0.440 

-1.330 

0.000 

-1.280 

0.000 

-4.000 

-0.310 

-4.000 

-0.300 

-4.000 

-0.280 

-4.000 

-0.250 

4.000 

0.560 

4.000 

0.560 

-1.180 

0.000 

-1.250 

0.000 

-1.270 

0.000 

-1.530 

0.000 

6.000 

0.760 

6.000 

0.770 

6.000 

0.790 

4,000 

0.570 

4.000 

0.540 

4.000 

0.560 

8.000 

0.900 

8.000 

0.900 

8.000 

0.960 

6.000 

0.770 

6.000 

0.730 

6.000 

0.710 

10.000 

0.990 

10.000 

0.990 

10.000 

1.070 

8.000 

0.960 

8.000 

0.670 

10.000 

0.930 

12.000 

1.000 

11.000 

1.000 

12.000 

1.060 

10.000 

1.070 

10.000 

0.970 

12.000 

1.040 

14.000 

0.960 

12.000 

0.980 

14.000 

l.OOO 

12.000 

1.130 

12.000 

1.060 

14.000 

1.100 

16.000 

0.900 

14.000 

0.930 

0.000 

0.000 

14.000 

1.090 

14.000 

1.110 

16.000 

1.130 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

0.990 

15.000 

1.130 

17.000 

1.140 

0.000 

0.000 

0.000 

0.000 

0,000 

0.000 

0.000 

0.000 

16.000 

1.120 

16.000 

1.130 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

18*000 

0*720 

20.000 

0.900 


NACA 

65-410 

NACA 65-412 

NACA 

65-415 

NACA 

65-418 

NACA 

65-421 



NACA 

TR-824 

NACA TR-824 

NACA 

TR-824 

NACA 

TR-824 

NACA 

TR-824 




5 

5 


5 


5 


5 


0 

0. 

400 

0.400 

0. 

400 

0. 

400 

0. 

400 

0. 

000 

0. 

100 

0.120 

0. 

150 

0. 

160 

0. 

210 

0. 

000 

0. 

150 

0.150 

0. 

150 

0. 

150 

0. 

150 

0. 

000 

-2. 

370 

-2.660 

-2. 

640 

-2. 

450 

-2. 

490 

0. 

000 

0. 

740 

0.740 

0. 

740 

0. 

740 

0. 

740 

0. 

000 

-6.000 

-0.390 

-6.000 -0.360 

-6.000 

-0.360 

-6.000 

-0.370 

-6.000 

-0.360 

0.000 

0.000 

-2.370 

0.000 

4.000 

0.720 

4.000 

0.710 

4.000 

0.670 

-2.490 

0.000 

0.000 

0.000 

6.000 

0.900 

6.000 

0.920 

6.000 

0.890 

6.000 

0.620 

2.000 

0.460 

0.000 

0.000 

8.000 

1.090 

8.000 

1.100 

8.000 

1.060 

8.000 

0.970 

4.000 

0.630 

0.000 

0.000 

10.000 

1.260 

10.000 

1.250 

10.000 

1.170 

10.000 

1.070 

6.000 

0.770 

0.000 

0.000 

12.000 

1.180 

11.000 

1.310 

12.000 

1.220 

12.000 

1.140 

6.000 

0.890 

0.000 

0.000 

14.000 

l.lOO 

12.000 

1.300 

14.000 

1.240 

14.000 

1.200 

10.000 

0.990 

0.000 

0.000 

0.000 

0.000 

14.000 

1.220 

15.200 

1.070 

15.000 

1.220 

12.000 

1.080 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

1.200 

14.000 

1.150 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

16.000 

1.120 

16.000 

1.180 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

22.000 

1.000 

18.000 

1.190 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

20.000 

1.160 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

22.000 

0.650 

0.000 

0.000 


ALPHA, CL VALUES 



APPENDIX C - PROGRAM USER INSTRUCTIONS 


1.0 INTRODUCTION 


This appendix contains a guide to the setting up and 
running of the computer program. Ihe essential computational 
steps are described in Section 4, and the underlying theory 
in Section 3 of this report, and Section 3 of Reference !• 

It should be noted that whereas this program is an extension 
and modification of the computer program developed in Refer- 
ence 1, considerable differences exist between the two 
programs. Users of the old program are, therefore, cautioned 
against attempting modification of the former program without 
a careful study of the present program layout and data format 
requirements . 


2.0 PROGRAM LANGUAGE 


The program is written entirely in Fortran IV, 

Version 2,3 for a Scope 3,1 operating system and library tape. 


3 . 0 MACHINE REQUIREMENTS 


The program is designed to run on a CDC-6600 computer. 
The program makes use of the overlay capability and requires 
15 disc files and a tape unit for peripheral storage-. 


4.0 INPUT DATA 


The input data required by the program to compute a 
series of solutions at specified angles of attack up to stall 
for each wing-fuselage-propeller configuration constitutes 
one input case. This input data must include tabulations of 
applicable wing-section and propeller blade-section aero- 
dynamic characteristics, propeller tip loss correction factors, 
and a range of geometric and flight condition parameters 
toge-ther with specification of several computational control 
and sequence options. 
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The input data for each case is in the form of pmched 
cards arranged in sequential groups as shovm in Figure 30. 
The principal; card groups are identified as follows: 

CARD 

GROUP DESCRIPTION 

A Wing-fuselage geometry and control and 

sequencing options 

B Wing- section aerodynamic data 

C Wing geometry if not straight-tapered 

D Fuselage angles of attack 

E Propeller tip loss factors 

F Propeller blade- section aerodynamic data 

G Propeller geometry and operating conditions 


In general the first case requires a full specification 
of the input data contained in each group. However, for the 
second and subsequent cases, card groups specifying tabulated 
data (Groups B, C, E, and F) may be omitted \diere there is 
no change in the input data requirements. See Figvire 30. 


4.1 Wing Fuselage Geometry (Card Group A) 

Wing- fuselage geometry is entered on the first three 
cards as follows: 


C7\RD 

COL .LOC 

VARIABLE 

TYPE 

PROGRAM 

NAME 

VARIABLE 

DESCRIPTION 

1 

1-10 

Real 

ASPEC 

AR 

Wing aspect ratio 


11-20 

Real 

TAUT 

(t/c)-]- 

Wing tip thidc ness/ 
chord ratio 


21-30 

Real 

TAUR 

(t/c)p 

Wing root thickness/ 
chord ratio 
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Program termination 


Second and subsequent input cases each consist 
card groups A through G as in. the first case, ] 
card group elements indicated by * should be 
omitted unless new data is required. Note that 
blank cards in groups E and F must, however, 
be retained. 

Blade element geometry. 

Propeller operating condition^ 
Propeller-nacelle geometry 
Propeller case description — — 

Blank card -yx'...— 

*Propeller airfoil data tables / / 

Blank card — 

*Propeller airfoil section titles / 

Blank card --ff* 

*Propeller tip loss correction tables- / r 

Fuselage angles of attack \ \ / I Y y 

Wing geometry? omitted for — t QvS | 

straight-tapered config,, ^ ^ y \Ol iLk^ y 

* Airfoil data tables for X X \ • 

wing tip camber level —fy ■ - ^ X ^ ^ X 

* Airfoil data tables for ^ ^ 

wing root camber level^-. ^ / / ^ I y \ ^ f 

Case control options — ^ ^ ^ 

Wing-fuse la g y Flaps up > 

geometry nuI 


Airfoil table; 
each camber L 


Assembly of Computer Program Input 




CARD COL.LOC 

VARIABLE 

TYPE 

PROGRAM 

NAME 

VARIABLE 

DESCRIPTION 

1 31-40 ' 

Real 

TAPER 

X 

Wing taper ratio 

41-50 

Real 

TWIST 


Wing geometric twist 
(If geometric twist is 
specified/ TWISA on card 
2 must be set to 
100.0) 

51-60 

Real 

R 

r 

Number of spanwise 
stations 

61-70 

Real 

BF 

b^/b 

Flap span/wing span 

71-80 

Real 

REYND 

Re 

Reynolds number in 
millions based on wing 
mean aerodynamic chord 

2 1-10 

Real 

DISCR 

A 

Criterion for converg- 
ence of iteration loop 

11-20 

Real 

A 

A 

Fuselage semi-height/ 
wing semi- span 

21-30 

Real 

B 

B 

Fuselagfe semi-width/ 
wing semi- span 

31-40 

Real 

H 

H 

Height of wing above 
fuselage centerline/ 
wing semi- span 

41-50 

Real 

ALPHR 


Wing/body incidence - 
degrees 

60 

Integer 

NFLAP 


Flap indicator : if 

NFLAP = 1, Flap is 
deflected; if NFLAP = 
0/ Flap is undeflected 
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PRCX3RAM 

NAME VARIABLE 


DESCRIPTION 


VARIABLE 

CARD COL .LOG TYPE 


61-65 

Real 

FLAP 

8f 

Flap setting - degrees: 
If 8f is zerO/ ie, 
flaps not deflected/ 
then BF on card 1 
should be set to 1.0 

66-70 

' 1 

Real 

X 

X 

X-coordinate of 
moment reference 
point 

71-75 

■ 1 

Real 

z 

z 

Z-coordinate of 
moment reference 
point 

76-80 

Real 

TWISA 


Aerodynamic twist - 
degrees (If aerodyn- 
amic twist is speci- 
fied, TWIST on card 1 
must be set to 100.0) 

1-10 

Real 

CAMBT 

Kt 

Tip airfoil series 
camber level 

11-20 

Real 

CAMBR 

Kr 

Root airfoil series 
camber level 

21-30 

Integer 

NSLIP 


NSLIP = 0, power off 
case, no propeller 
data required; NSLIP = 
1, power on case, 
propeller data required 

31-40 

Real 

CDNAC 

CDn 

Total drag coefficient 
of all nacelles based 
on wing area, set to 
zero if no nacelles 
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4.2 Control and Sequencing Options (Card Groi^) A) 


Card 4 of Group A Controls data read- in and optional 
printout features, in addition to standard output.' The card 
layout is shown below. 

VARIABLE PROGRAM 

CARD COL .LOC TYPE NAME VARIABLE DESCRIPTION 


4 


1 


2 


3 


4 


Integer NLVL 


Integer ISWIT(l) 


Integer ISWIT(2) 


Integer ISWIT(3) 


Number of valxaes of 
thickness chord ratio 
(limit 5) 

Option for reading 
in wing geometric 
parameters 

Option to print out 
inteirmediate calcu- 
lations as they are 
performed 

Option to print out 
matrices 


5 Integer IG 


Switch used to set 
up data tables 


6-55 Alphamameric 


Run number, date, 
etc. 


The options are as follows : 

ISWIT(l) 

This control option is used for wings having nonlinear 
taper. The local values of Reynolds naamber, geometric twist, 
and ratios of thickness/chord and local chord/root chord must 
be key-punched for each spanwise station together with the 
values of edge velocity factor and the ratios of mean aero- 
dynamic chord/root chord and root chord/ span. By setting 
ISWIT(l) = 1, these values (Card Group C) are read in the 
following order using Format (16F5.0) : 
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PROGRAM 

VARIABLE 

NAME 

DESCRIPTION 

TYPE 

NUMBERS 

OP 

VALUES 

TAU 

Thickness/chord ratios 

array 

R-1 

REY 

Reynolds mambers 

array 

R-1 

C 

Chord/root chord ratios 

array 

R-1 

EPS 

Geometric twist 

array 

R-1 

EDGE 

Edge velocity factor 

single value 

1 

CRB 

Root chord/span ratio 

single value 

1 

ACC 

Mean aerodynamic chord 

single value 

1 


If ISWIT(l) = 0, the program assumes a straight- tapered 
wing and calculates the values. Normally this is the case. 

iaviT(2) 

This option allows for different types of printout 
required in the computation. 

Setting ISWIT(2) = 1, causes the program to print pvit 
intermediate calculations as they are performe<i. This printout 
is very lengthy and should be used only when absolutely 
necessary to aid in debugging. 

If 1SWIT(2) s 0, intermediate calculations are not 
printed. 

1SWIT(3) 

If this control option is set to 1, the two major matrices 
of the program will be listed. First, y@mk (BETA), the matrix 
of multipliers used to obtain induced angles of attack is 
printed out. Then this is followed by the matrix Kjj (TRIX) 
which is used in the iteration cycle. 

If ISWIT(3) is set to zero, no printout of the matrices 
will be obtained. 
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I I 


III 


IG 

This control option is used to set up the wing airfoil 
data tables. For the case of a wing having the root airfoil 
series the same as the tip airfoil series, or for a wing with 
a deflected part-span flap, set; 

IG = 3, if airfoil data is being read for the first 
time from cards 

or IG = 1, if the airfoil data has already been read in 
and stored on tape 

If the root airfoil series is different from the tip 
series then set: 

IG = 4, if airfoil data is being read for the first 
time from cards 

or IG = 2, if the airfoil data has already been read 
and stored on tape 

Note that for a wing with a deflected part-span flap, the 
airfoil series from root to tip must be the same. The value 
of IG causes the computer to perforai the following operations. 

VALUE OF IG OPERATION 

1 Read airfoil data from peripheral storage device 
(PSD) to cube 1 on disc then copy cube 1 to cube 2 
( See Figure 7 ) . 

2 Read root series airfoil data from PSD to cube 1 
on disc, then read tip series data from PSD to 
cube 2 on disc. 

3 Read airfoil data from cards , load to PSD, then 
read from PSD to cube 1 on disc. Copy cube 1 to 
cube 2 . 

4 Read root series airfoil data from cards, load to 
PSD, then to cube 1 on disc. Read tip series 
airfoil data from cards, then load to PSD, then 
to cube 2 on disc. 
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4.3 Wing Section Aerodynamic Data (Card Group B) 


The aerodynamic section characteristics of the airfoil 
are read into the computer in the form of tables of lift 
coefficient (Ci) versus angle of attacX (a), drag coeffi- 
cient (Cjj) versus Ci , pitching moment coefficient (Cjjj) 
versus Ci and lift coefficient with flap deflected versus a . 
The tables must be selected to cover the range of values of 
thickness/chord ratio, Reynolds number, and camber associated 
with the wing under consideration. 

For each value of thickness/chord ratio,' the data tables 
are arranged as indicated in Table V. The first card (punched 
in columns 1 through 7) indicates the niamber of rows in the 
table (columns 1 and 2), the number of columns in the table 
(columns 3 and 4) and the airfoil thickness/chord ratio 
(columns 5, 6, and 7). The second card (in alphanumeric 
format) indicates the airfoil type and the type of data e.g. 

NACA 230XX, 

All cards in the table have format (F7 , 3, 9F8 . 3 ) . The 
first card contains the values of Reynolds number (in millions) 
and begins with a blank in columns 1 through 7, If the table 
is to contain values, the next card reads - 90.0 in columns 

1 through 7, and -9.0 in columns 8 through 80. If the table 
is for values of C^, the card reads -10.0 in columns 1 through 
7, and 2.0 in columns 8 through 80. If the table is to contain 
Cm values, the card reads -10.0 in colimins 1 through 7, and 
zeros in columns 8 through 80. 

The remaining cards contain either; (1) a value of 
angle of attack (coltunns 1 through 7) followed by the values 
of C 1 corresponding to each Reynolds number, or (2) a value 
of C 1 (columns 1 through 7) followed by the values of or 

(3) a value of Ci (columns 1 through 7) followed by the 
values of Cm, depending on whether the table contains C^^ , C^j, 
or Cm data. Ihe last three cards in each table are; 
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Table V. Card Format for, Wing Section Airfoil Tables 

i 


Col. Log. 

Header Cards 
Reynolds Numbers 


1 , 8 

|l311-12 

NACiJi 23012 Lift Coefficient CL 
' I 0.5 

i-90i0 -9.0 

-14.0 -0.5 


a Values 


Cj/. Values 


+90.0 

Cj[ Max Values ' 

a Max Values i 


4.0 

1.51 

17.2 


Drag Coefficient CD 
0.5 
2.0 
0.004 


Values 


10.0 2.0 
Blank card 
Blank card 


Cjj Values 

t 


1511.12 
NACA 23012 

-10 

-0.3 


1611.12 

NACA 23012 Pitching Moment Coefficient 
CMl/4 Chord 

- 10.0 0.0 

-0.36 -0.40 


Cf£, Values 


Cjj, Values 


10.0 


0.0 

Blank card 
Blank card 


16 


1.0 

-9.0 

-0.45 


9.0 
1.54 

17.0 


1.0 

2.0 

0.0042 


2.0 


0.0 

-0.41 


0.0 
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Table 


Card 


No. 

Columns 1 throuqh 7 

Remaining Fields 

1 

90.0 

9.0 9.0 etc. 

2* 

blank 

Values of Ci max 

3* 

blank 

Values of Ct at 



Cl max i.e. Omax 


* In the Cl tables the values of and a appearing 

on cards 2 and 3 respectively, must also appear in the main 
body of the table. 


C ^ Table 

1 10.0 2.0 2.0 etc. 

2 blank card 

3 blank card 

C„ ^ Table 

1 10.0 0.00.0 etc. 

2 blank card 

3 blank card 

Up to 5 "levels" of thickness/chord ratio may be used. 
Within each level the table size is limited to 8 columns 
(7 values of Reynolds n\jmber) and 25 rows (22 different values 
of a or Cl) . 

The airfoil data cards are assembled as shown in Figure 30. 
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4.4 Fuselage Angles of Att.ac]c (Card Group D) 

The fuselage angles-of-attack at v^ich calculations are 
to be made are read in on 2 cards. Format (10F8.0). Uiese are 
used sequentially as punched until either 99,0 is encountered 
or stall is readied. If the former condition is encountered, 
the program will automatically proceed to the next case; if 
stall is reached, the program will search for an angle-of- 
attack close to the value of angle-of- attack at which stall 
just occurs. The accuracy of this search depends on how closely 
the angle s-of-attack are chosen near stall. 

Note that all the lift tables are artificially extended 
beyond the Ci point with a positive slope. For example, 
in all tables at ct = * 90 is set to i 9,0. This is done to 
ensure convergence. Ihe effect of this is that the overall 
wing versus a curve predicted by the program will be correct 
up to ithe angle-of -attack at vhich stall first occurs on the 
wing. Thereafter, the predicted Cj^ is incorrect. This is 
consistent with the purpose of the program which is to predict 
the point of stall onset only. 


4.5 Propeller Tip Loss Correction Factors (Card Group E) 

The propeller tip loss correction tables are defined by a 
three-dimensional array of size (3, 21,8). The data values are 
read in on a total of 63 data cards, each card containing 8 
values and having the following format: 


COL ,L0C 

VARIABLE 

TYPE 

PROGRAM 

SYMBOL 

ALGEBRAIC 

SYMBOL 

DESCRIPTION 

1 

Integer 

IB 

(B-1) 

Array index identifying 
number of blades per pro- 
peller, less one 

2-3 

Integer 

IP (1+20 s±ncf>) 

Array index identifying 
value of sin <f> 

4-32 

— 

— 

— 

Blank 

33-38 

Real 

TLOSS(l) 

F/FP 

Data value at r/R = 0.3 

39-44 

Real 

TLOSS(2) 

F/FP 

Data value at r/R = 0.4 
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COL. LOC 


VARIABLE 

TYPE 


PROGRi^M 

SYMBOL 


ALGEBRAIC 

SYMBOL 


DESCRIPTION 


75-80 Real TLOSS(8) F/FP 


Data value at r/R = 1.0 


These 63 data cards may be assembled in any order. 


4.6 Propeller Blade Section Aerodynamic Data (Card Group F) 

i 

i 

Up to 150 propeller blade-section d^ta tables*can be 
accepted and stored by the computer program. Each table con- 
tains an array of up to 20 pairs of a ani'd C]_ values for one 
airfoil section at one Mach number condition. Up to 25 air- 
foil sections may be specified for each a^irfoil family. A 
maximum of 9 families can be stored# eacl| being assigned an 
arbitrary single-digit airfoil series code between 1 and 9 
inclusive . 

The standard blade-section data tables available with 
the program use preassigned airfoil series codes (as given 
below) for which the computer program stores the following 
titles and values of two constants, and k 2 . 


Code 

Airfoil Series Name 


K2 

1 

USNPS 

0. 

-40.0 

2 

Clark, Y 

0. 

-40.0 

3 

NACA 16 XXX 

-7.3 

0. 

4 

NACA 6 4- XXX 

-6.9 

0. 

5 

NACA 6 5- XXX 

-6.9 

0. 

6-9 

Blank 

0. 

0. 

*See section 

4.1.3 of main report for 

order of assembly. 
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The constants k2 are empirical values that permit 

an initial value for a© # angle-of-attack at zero lift used 
in equation 104, to be obtained from a linearized approxi- 
mation to the airfoil characteristics given by the ejq)ression 

Oq = ki X (design lift coefficient) + 

(146] 

k 2 X ( thickness/chord ratio) 

The airfoil series title card is used to reassign airfoil 
series names and k^^, k 2 values as required. One card is used 
for each reassignment and has the following format; 


COL. LOG 

VARIABLE 
. TYPE 

PROGRAM 

NAME 

ALGEBRAIC 

SYMBOL 

DESCRIPTION 

1 

Integer 

I 

— 

Airfoil series code 

11-18 

Alphanumer i c 

APSER(I) 

— 

Airfoil series name 

21-30 

Real 

AK(I,1) 

1 

Empirical constants 
defined in 

31-40 

Real 

AK(I,2) 


preceeding text 


Each airfoil table is defined on a sequence of from 
2 to 5 cards. The first card in the sequence contains 
header information specifying the airfoil section and other 
pertinent parameters as follows : 


COL .LOG . 


VARIABLE 

TYPE 


PROGRAM ALGEBRAIC 
NAME SYMBOL 


DESCRIPTION 


1-2 Integer IHEDD(l) 


Niamber of pairs of 
a , C^ values in 
table 


5 Integer IHEDD(2) 

9-16 Real THEDD(l) C^^ 


17-24 


Real IHEDD(2) t/c 


Airfoil series code 

Design lift coeffi- 
cient 

Thickness/chord 

ratio 
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CX)L.LOC 


PROGRAM 

NAME 


ALGEBRAIC 

SYMBOL 


DESCRIPTION 


VARIABLE 

TYPE 


25-32 

Real 

1HEDD(3) 

Mo 

Mach number 

33-40 

Real 

3HEDD(4) 

“o 

Angle-of-attack 





for zero lift 

41-48 

Real 

THEDD(5) 

^Cli 

Extrapolation 
coefficient given 
by. equation (126) 


57-68* Alphanumeric 

— 

— 

Table data source 

69-80* 

Alphantimeric 

— 

i 

Airfoil section name 

* For 

reference only; these 

columns not read by program. 

1 

The 

second and 

Slab sequent 

cards in 

each airfoil table 

sequence 

contain the 

pairs of 

a and Ci 

values. These values 

must be 

arranged in 

order of 

a increasing. Ihe format is as 

follows : 

VARIABLE 

PROGRAM 

ALGEBRAIC 


COL*LOC. 

TYPE 

NAME 

SYMBOL 

DESCRIPTION 

1-8 

Real 

TALFA(l) 

“ } 

1st pair of values 

9-16 

Real 

TLIPT(l) 

Cl 


17-24 

Real 

TALFA(2) 

“ } 

2nd pair of values 

25-32 

1 

1 

1 

1 

Real 

1 

1 

I 

1 

TLIFT(2) 

1 

1 

I 

1 

Cl 

1 

I 

1 

1 

1 

1 

1 

1 

1 

1 

65-72 

1 

1 

1 

Real 

1 

1 

1 

TALFA(5) 

“ } 

1 

1 

1 

1 

5th pair of values 

73-80 

Real 

TLIFT(5) 

Cl '' 
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4.7 Propeller Geome-trv and Operating Conditions 
(Card Group G) 

Information •jto specify the propeller geometric and 
operating parameters is provided on a series of cards of 
four types. These cards must be arranged in the order 
described below. Each card type is assigned a numerical 
code value in column 80. The value is read by the program 
to ensiare that the cards are in proper sequence. 


Ihe first card provides for the inclusion of arbitrary 
title information as follows: 


VARIABLE 

COL .LOG . TYPE 

1-76 Alphanumeric 
80 Integer 


PROGRAM 

NAME DESCRIPTION 

TITLE Propeller identification title 

IDENT Card identification code = 1 


The second card provides information specifying the 
propeller and nacelle geometry as follows: 


COL .LOG . 

VARIABLE 

TYPE 

PROGRAM 

NAME 

ALGEBRAIC 

SYMBOL 

DESCRIPTION 

1-2 

Integer 

NP 

— 

Number of propellers 

11-12 

Integer 

NB 

B 

Number of blades per 
propeller 

21-30 

Real 

DPB 

D/b 

Propeller diameter/ 
wing span 

31-40 

Real 

RHBR 

^hub/^^ 

Hub radius/tip radius 

41-50 

Real 

RNBR 

^nacelle^^ 

Nacelle radius/tip 
radius 

80 

Integer 

IDENT 

— 

Card identification 
code = 2 
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The third card provides information specifying the 
operating conditions for the propeller (s) as follows: ' 



VARIABLE 

PROGRAM 

ALGEBRAIC 


COL. LOG. 

TYPE 

NAME 

SYMBOL 

DESCRIPTION 

1-2 

Integer 

NROT(l) 

— 

L.H. propeller 
rotation index 

11-12 

Integer 

NROT(2 ) 

— 

R.H. propeller 
rotation index 

21-30 

Real 

AJ 

J 

Propeller advance 
ratio 

31-40 

Real 

AMCHU 

Mo 

Flight Mach ntamber 

80 

Integer 

I DENT 

— 

Card identification 
code = 3 


The positive value (01) for the propeller rotation index 
is used to specify a right-hand rotation for either propeller. 
The negative value (-1) is used to specify a left-hand 
rotation. Where a single-propeller configuration is con- 
sidered, the rotation index for the L.H. propeller must be set 
to zero (00) v^ile the R.H. propeller index has the appropriate 
value for the single propeller rotation sense. 

The fourth- through- la St cards of the series provide 
information specifying the blade section geometry, one card 
is required for each selected blade station between hub and tip# 
up to a maximum of 12 cards. These cards must be assembled in 
order of increasing blade station radius. The first selected 
station need not be at the hub, but the last card must specify 
the station at the tip with a value of 1.0 in columns 1-10. 



VARIABLE 

PROGRAM 

ALGEBRAIC 



COL.LOC. 

TYPE 

NAME 

SYMBOL 

DESCRIPTION 

1-10 

Real 

RPBR 

r/R 

Blade station 
tip radius 

radius/ 

11-20 

Real 

CPBR 

C/R 

Blade- section 
tip radius 

chord/ 
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VARIABLE PROGRAM ALGEBRAIC 
iCOL.LOC. TYPE NAME SYMBOL DESCRIPTION 


21-30 Real BETA 

31 Integer NA 

41-50 Real CLI 

51-60 Real TOC 

80 Integer IDENT 


/3 Blade section pitch 

angle, degrees 

— Blade section airfoil 

series code 

Cij^ Blade section design 

lift coefficient 

t/c Blade section thick- 

ness/chord ratio 

— Card identification 
code = 4 


4.8 Program Termination (Card Group H) 

The program operation is terminated by three input 
data cards ' located at the end of the input data deck, The 
first card uses the format of card number 1 of Group A with 
the value of ASPEC set to 99,0. The second and third cards 
must be blank. 


4,9 Data Restrictions 

The following is a list of input quantities together 
with the , restrictions and normal range of values. 


QUANTITY~ 

ASPEC 

TAUT , TAUR , - TAP ER 
TWIST, TWISA 
R 
BF 


SIGN-RESTRICTIONS- NORMAL RANGE 
+, > 2.0 
+ , < 1.0 

between +15° and -15° 
+20 only* 

+, < 1.0 
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QUANTITY 

SIGN-RESTRICTION S-NORMAL RANGE 

REYND 

+ 

DISCR 

+, suggested value .001 

A, B, H 

o 

• 

H 

VI 

+ 

ALPHR 

between +10° and -10° 

NFLAP 

0 or 1 

FLAP 

+, between 0° and 90° 

X, Z 

+ or - 

NSLIP 

0 or 1 

CDNAC 

o 

• 

H 

VI 

o 

+ 


R, v^ich must be an even integer, may be changed to 
allow calculation at a greater number of spanwise 
stations. This requires changing the DIMENSION statements. 


5.0 OUTPUT 


5.1 Printout Options 

All output is from a standard 120-characters-per-line 
printer. Ihe amount and type of data output depends on the 
options exercised and on whether the computation is for a 
wing with or without a deflected flap/ with or without 
slipstream. For the standard run (without the debug print- 
out) , the output data is self-explanatory. When the option 
for printing intermediate calculations is exercised, the 
output contains the following additional parameters whose 
meaning is given below. 
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QUANTITY 

TYPE 

DESCRIPTION (see also Reference 1) 

A1 

single value 

Angle of attack corresponding to 
Cl at flap end, from flapped 
section data 

A2 

single value 

Angle of attack corresponding to 
Cl at flap end, from unflapped 
section data 

A3 

single value 

Zero-lift angle at flap end - 
flapped section data 

A4 

single value 

Zero- lift angle at flap end - 
unflapped section data 

ALPC 

array 

Angle of attack corrections for 
flap effect 

ALPH 

array 

Angles of attack corrected for 
downwash, flap effects and body 
upwa sh 

ALPHE 

array 

Effective angles of attack 

ALPG 

array 

Wing section geometric angles of 
attack 

ALPHU 

array 

Section downwash angles corrected 
for fuselage effects 

ALPHZ 

array 

Section zero-lift angles 

ALFPR 

single value 

Propeller shaft angle of attack in 
radians 

ASBAR 

single value 

Average slipstream angle 

CBC 

array 

Calculated values of C^^/b 

CBG 

array 

A.pproximate values of Cic/b 

CDOC 

array 

Values of C(jc/b 

CL 

single value 

Integrated lift coefficient used 
to normalize CLADD 
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QUANTITY 

TYPE 

DESCRIPTION (see also Reference 1^ 

CLADD 

array 

Additional lift coefficient 
distribution 

CLADl 

array 

Modified distribution of add- 
itional lift coefficients from 
tip to flap end 

CLAD2 

array 

Modified distribution of add- 
itional lift coefficients from 
flap erri to wing/fuselage junction 

CIi2CB 

array 

Distribution of lift associated 
with equation (56) 

CLDEL 

array 

Distribution of lift coefficient 
due to flap deflection only 

CLMAX 

array 

Values of section maximum lift 
coefficients 

CLSTA 

single value 

Section lift coefficient at 
flap end 

CLSTU 

single value 

Uncorrected section lift co- 
efficient at flap end 

CVAL 

array 

Lift coefficients corresponding 
to ALPG 

DELTA 

array 

Differences between guessed and 
calculated lift distributions 

DDCLMA 

single value 

Increment in section maxim^Jm 
lift coefficient at flap end 
due to flap deflection 

EDGE 

single value 

Edge velocity factor 

F 

array 

Factors used in altering two- 


dimensional section data to 
three-dimensional data 
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QUANTITY 

TYPE 

DESCRIPTION (see also Reference 1) 

FF 

single value 

Factors used at flapside of flap 
end to alter 2-dimensional data 

FI 

bingle value 

Factor used to scale additional 
lift distribution CLADD 

F2 

single value 

Factor used to scale CLDEL 

FUNC 

single value 

Wing -on-propeller upwash function, 
equation (128) 

GENE 

array 

Values of equation (88) for 
g* ^ yr- e* 

HOPP 

array 

Values of ac|</8 - see Reference 1 
equation (38) 

RDUBAR/DU 

single value 

Real part of the derivative of 
the conformal transformation 
function, equation (9) of Ref. 1 

SCENE 

array 

Function associated with 
equation (76) 

STONY 

array 

Function associated with 
eqioation (76) 

SIGMA 

array 

Function associated with HOPP 

SV 

array 

Slipstream crossflow distribution 

TONY 

array 

Values of equation (88) 

VW 

single value 

Wing- induced upwash in propeller 
disc plane 


5.2 Error Messages 

In developing the program it was found that the most 
common source of error was the airfoil data tables. In 
particular, the tables of versus a are most critical. 
The variation of Ci with increasing Ot should be smooth 
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without sudden breaks, especially for values higher than 
Umax* sharp break in the slope of versus a after 
a max cause the iteration procedure to |diverge. If 
this occurs a message is printed as follows: 

UNABLE TO CONVERGE AFTER 30 ITERATIONS ABORTED 

I ; 

The last values of DELTA and the values of lift co- 
efficient are then listed together with a dvimp of the airfoil 
tables in core at that time. 

A secohd error message associated with stable interpolation 
is as follows : 

ERROR CODE (N) 

IF 1 CVAL GTR IRAN MAX VALUE LISTED 

IF 2 CVAL GTR IRAN TABLE VALUE 

IF 3 ALPHA VALUE GTR IRAN TABLE VALUE 

IF 6 IRICKNESS CHORD RATIO VALUE CANNOT BE FOUND 

If these errors occvir, the tables should be examined for 
mistakes in key punching, etc. 

Several error messages are associated with the propeller 
slipstream analysis subroutine and operate as follows: 

(a) If an invalid number of tip loss correction cards 
are read, i.e. other than 0 or 63, this is indicated 
by the message: 

XX TIP LOSS CORRECTION TABLE DATA CARDS READ IS 
INVALID - SLIPSTREAM COMPUTATIONS ABORTED 

(b) If the propeller geometry and operating condition 
data cards are read out of sequence, this is in- 
dicated by the message : 

CARD I DENT XX HAS BEEN READ OUT OF SEQUENCE, 
SLIPSTREAM COMPUTATIONS ABORTED 
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(c) If propeller airfoil tables are not stored for the 
airfoil series code specified on a blade station data 
card (IDENT 4) , this is indicated by the following 
message : 

AIRFOIL TABLES NOT STORED FOR AIRFOIL SERIES XX 
SPECIFIED AT RB/RP = XX-XXXX - IHIS ELEMENT IS 
DELETED FROM THE ANALYSIS 

(d) If the propeller- si ip stream analysis fails to con- 
verge within 9 iterations, then the following 
message appears after printing out the solution 
for the last iteration : 

SOLUTION FOR PRECEEDING ELEMENT FAILED TO CONVERGE 
IN 9 ITERATIONS AND IS DELETED FROM THE SLIPSTREAM 
ANALYSIS 


6.0 PROGRAM STRUCTURE 


The program is written to operate in OVERLAY mode. The 
central controlling portion of the overall program is called 
STALL. The remainder of the program is split into 3 parts, 
ONE, TWO, THREE, which are overlaid. STALL calls ONE vhich 
then calls either TWO or THREE depending on whether the cal- 
culation is for a flapped wing or not. The major svibroutines 
called by each overlay are as follows : 

ONE calls MAIN, MAINA, MAINl 
TWO calls MAIN2, MAN2A, MAIN4 
THREE calls MAIN2, MAIN3, MAINS 

These major subroutines call the remaining subroutines 
in the program as follows : 


MAIN 

calls 

MAINA, 

SETSW, AERDA, DATSW, ZZZ 

MAINA 

balls 

SLIP, 

AAA, DATSW, ZZZ, 

BRIDG, MAINl 

MAINl 

calls 

DATSW, 

AAA, MINV, GRIDG 

, SSS 

MAN2A 

calls 

DATSW, 

AAA, BRIDG, ZZZ, 

MAIN4 

MAIN3 

calls 

DAGET, 

DATSW, AAA, ARC, 

ZZZ, MAINS 

MAIN4 

calls 

BRIDG, 

AAA, DATSW, MAN2A 

MAINS 

calls 

DAGET, 

ARC, DATSW, AAA, 

ZZZ 

BRIDG 

calls 

DAGET, 

ARC 


ARC 

calls 

LOOK 
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7.0 OPERATING PROCEDURE 


Logical TAPES is named as the working (scratch) tape. 
The program deck and data deck are loaded in the following 
sequence: job card, system control cards, end-of-record 

card, program deck, end-of-record card, data deck, end-of- 
^ile card. 


8.0 PROGRAM TIMING 


Central processor unit time for 
angles-of-attack is approximately 60 


an average run of six (6) 
seconds. 
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APPEHDIX D 

IMTERMAL LISTIMG OF THE OOMPITTER PROGRAM 

Presented in this appendix is an internal listing of 
the ccnputer program developed under the present contract. 
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CVtRLAYUJLUC^fC.C) 

PrtCGrtAK i,TALL( IAPtjT = 2Cl,CUTPUT=10Cl.TAPte = lNPUT,TAPE6=OUTPUT,TAPfcl 
l*2Cl.T/.PE2*2Cl,TAPt ? = 2C1,T AP!-:A = i.01,T APK5 =20 I, TAPE 10=201 tTAPE15 = 201 
2,TAPE2C=?C1 ,TAPI:A'. = 2C1, 1APEV = 1-CC I, I APGi< = 201 ) 

DIPbNSICN' C< 15) PS( 15) , TRAfvS( 19) ,ReY(.19) ,E 14115) ,I-CPP( 15) ,CL«AX< I 
19) ,Z)-EHt(2,t),n)-EKE(2,fc),ARF.AY(t.,2 5,o ) , Y « 1 5 ) t T At ( 15 ) ,btTA ( 19» 19) t 
2KA22(.o),t^/:CCL<6 ) ,PAXX(6 ) ,yxCCL(o) , Yf'ERE ( 2 ,6 ) , .Y YCCL ( is ) , ^AY Y ( 6 ) t TRI X 
3(19, 19) ,Cy 1 19 ) ,i:iST*(-19) , YOAHS) ,Y0AX(.19) , YX ( 19) , I UNY (• 19 ) , ACPG ( 19 ) , 
4XI-ERe(2,0),PKCCL(6),MAhtt(6) . - 

OIPENSICN CVAL( 19), ALP1-U( 15) ,CBC( 15) ,CtiO( 19) , CELTA ( 19 ) , ALPHZ ( 19 ) , 
lALPM 19), ALPI-5U5) ,CLACC( 19),CL0EL(19) ,CLAD2(.19) ,CLA01( 19) ,F(19) 
CCPPCN KCR,KIR,KIL,KCL, VSA( 19) ,Sli( 19) , VSBAR,EYETL,CTS,XPB, YPO, JP, 

1 lPR4B,ALP)-e,KSTAL, lSTAL,KCtNT,AB( 3) 

CCPRCN NSLIP,VR( 19) ,CA( 19) ,AS( 19) ,TL(.15) ,SV< 19) ,FUNC, YO,CONAC, 
1ALPI-V(16) 

CCPPCN INKCU, ISivIT(.3) ,ALPfA,REYN,CLL,KEYCiN,XMAX,ALPAX( 19) ,CLKAX,C, 
lEPS,TRAAS,REY,ETA,)-CPP,ZFERc,R(-ERt,ARKAY,Y,BETA,TFAC,TRIX,TAU,MAXX 
2,PAZZ,PXCCL,NZCCL,ASPEC,TAPER,oF,KEYND,L;ISCk,PIfcK,CRU,vj,TSTAX,ECGt 
3,SIG, ALPHR,NFLAP,i\LVL,NP,IY, IZ, IR, IP, IS, 1 S T AR , A , B ,h , TAUT , T AUK, 
ATS«IST,R,RXX,YFEPF,PYCCL,payY,FLAP,TCNY, 1 v.lSA,X, Z,CP,ACC,XHERE, 
5.VWCCL,PAkh,CAP«( 19) ,CAyBR,CA"B I ,DUyYl,CUyY2,NAKt (25) ,AHfcRE (2,6) , 
6MAAA(.6) ,yACCL(6),bFER£(2,6) ,FABo(6) , MoCUL ( 6 ) , CHLRE ( 2 , O ) ,KACC(5) , 
?PCCCL(6),CFERE(2,6) , I'.ACC (6 ) , F CCOL ( 6 ) , STUN Y ( 19 ) , SCENE (19 ) ,CVAL , 
eALPFU,CkC,CeG,CELTA,ALPFZ,ALPH, ALPHE,CLACU,CLDEU,CLAD2,CLAD1, 

5F, IRI.,FF,J.CCEK 
BLINCA=ELBLINCA 
RECAL1=6HRECALL 
30 IR=6 

50 CALL CVERLAY(BLINCA, 1,0, RECALL) 

FF(NFiAP.NE.C ) GO TO 10 
GC TC 2C 

10 CAIL CVERLAYtBLINCA, 3, C, RECALL) 

2C CALL CVERLAY(BL1NCA, 2,0, RECALL) 

40 IF(IR.FC.C) GC TO 50 

GC TC 3C 
END 

0VERLAY(BLINCA,1,C) 

PRCGRAX CNE 

DIFENSICN C(19),EPS(19),TRANS(19),r<EY(19) , E T A ( 19 ) ,HCPP ( 19 ) ,CLiYAXn 
19),ZFERe(2,e),kFbRc(2,6),ARRAY(5,29,0 ),Y(19),TAU(19),UtTA(19,19),- 
2RAZZ L6) ,PZCCL (6) ,FAXX(6 ) ,PXCGL(6) ,YI-ERE( 2,6) ,hKCCL(6) , FAYY ( 6 ) , TR1> 
3(.19,19),Cy(19),ClST(19) ,YCA( 19) , YUAXU9) , YX ( 19 ) , TON Y ( 19 ) , ALPG ( 19 ) , 
4XFERE(2,6),FkCCL(6),PAksi(6) 

DIP ENSIGN CVAL( 19 ) , ALPFU ( 19 ) , CCC ( 19 ) , CBG ( 19 ) , CELT A ( 19 ) , ALPHZ ( 19 ) , 
1ALPK19),ALPFE( 1 9 ) , CL AC D ( 1 9 ) , CLUE L ( 1 9 ) ,CLAD2(19),CLA01(19),F(19) 
CCPPCN KCR,K1R,K1L,KCL, VSA( 19),Sk( 19 ) , VS E Ak , E YE TL , C T S , XPB , YPC , JP , 
lIPRAC-,ALPFe,KSTAL, I £ T AL , KCLNT , aB ( 3 ) 

CCPFCN NSLIP,VR( 19) ,CA( 19) ,AS( 19) ,TL(.19) ,SV( 19) , FUNC , YO ,CDNAC , 
1ALPFV(1( ) 

CCPPCN INNCK, ISMT ( 3 ), ALPHA , REYN , CLL , RE YCN, XP AX, ALP AX (19) ,CLPAX,C, 
lEPS,TRANS,REY,ETA,FCPP.ZFERb,kFbRL , ARRAY, Y, BETA, T FAC, T Hi X,TAU,PAX> 
2,PAZZ,PxCCL,PZCGL,ASPEC,TAPcK,BF,RbYN0,UlSCK,PIbR,CRB,0,TSTAX,ECG£ 
2,SIG,ALPhR,NFLAP,N'LvL,NP,IY,lZ,IR,lH,IS,ISTAR,A,B,H,rAUl, TAUR, 
ATKlST,R,aXX,YFE'<c,F YCCL,*'AYY,FLAP,Tl'NY, TNlSA,X,Z,CP,ACC,XHERb, 
5VftCCL,PAVvV. ,CANlM 19) , C AP kR , C AF BT , DUP Y I , OUP Y2 , 'iAKt ( 25 ) , AHERE ( 2 , 6 ) , 
6MAAA (.6 ) ,PACCL (6 ) , BFERL ( 2 ,6 ) ,F ABl. (6) ,F‘1 jC 0L(6 ) ,CHcR6 ( 2,b) ,P.ACC(6) , 
7PCCCL(6),CFERc(2,6) , PACE (6) .PCCOL (6) ,STuNY( 19) , iGGNt ( 19 ) ,CVAL, 
bALPFU,CeC,CBG,C£LTA, ALPF2, ALPH,ALPFE,CLACD,CLDtL,CLA02,C' ADI, 
9F,1RI,FF,LCCER 
IF ( IR.CC.C ) GC TC 2C 
1C CALL pain 

20 CALL PAINA 

IF(ALPFB.EC.59. ) GC TC 1C 
IF( IPRAB.NE.l) GO TO 3C 
CALL PAINI 
30 RETURN 
ENC 

0VERLAY(BLINCA,2,0) 

PRCGRAP TUC 

DIPEN SUN C(19),FPS( 19) ,TRANS( 19),REY(19),ETA(19),FCPP(19) ,CLPAX(1 
19),ZFFRL(2,£),wFERE( 2,6),ARRAY(5,25,B ) , Y ( 1 9 ) , TAU ( 15 ) , BL T A ( 19 , 19 ) , 
2PAZZ(6),P2CCL(6),PAXX(6) ,PXCCL(6) ,YFERE(2,6) ,HYCLL(6) , PAYY ( 6 ) , TR 1 > 
3(.19, 19) ,CP( 15) .LIST ( 19) , YCA (19 ) , YUAX (19 ) ,YXll9) , TUNY (. 19 ) , ALPG ( 19 ) , 
4XFERE(2,6),PWCCL(fc) ,PAkU(6) 

DIPENS I CN CVAL( 1 9 ) , aLPFU ( 19 ) , CBC ( 19 ) , C6G ( 19 ) .DELTA ( 19 ) , ALPHZ ( 19 ) , 
1ALPFU5) , ALFFE(.19),CLACC( 1S),CLULL(19),CLAD2H9),CLAD1(19),F(19) 
CCPPCN KCR,K1R,KIL,KCL, VSA( 19 ) , Sh (19 ) , VSBAR , EYETL ,C IS , XPO » YPB, JP, 
11PRAB,ALPF3,KSTAL, 1STAL,KCLNT,AB(.3) 

CCPPCN NSLIP,VR( 19) ,DA( 19 ) , AS ( 19 ) , TL (.19 ) , SV ( 19 ) ,FUNC, YO.CDNAC, 
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lALPhV(16) 

CC^'^C^ INNCK, ISV» IT(3) tALPHA,REYN,CLLfREYCN,XKAX,ALKAXC19) tCLKAXfCf 
ICPSf TkANS,REY,ETA,t“CPP. ZhEPEf wHiRb, ARKAY,Y*tiLTA»TFACf TRIXt TAUfMAX> 
2f NAZZf PXCCLf^ZCCL.ASPECfTAPERf dP f R6YNO*DlSCx,PItRtCRl3f Cf TSTAXfEUGt 
3*SIG»ALPHR,NFLAP,NLVLfNPf lY, IZt IK, IP, IS, I S T AR , A , b , F , T AUT , TAUR , 

A rMST,R,i3AX, YF ERE ,PYCCL f FAY Y, FLAP,! LNY, 1 I S A , X , Z ,CF , ACC , XHERt , 
5F!.,£CL,PA^.-j,CAve( 19) ,CAwaR,CAFbT,OU^ Y1 ,0UKY2,NAWE(25lf AhERE(2,6l , 
6.vAAA(-6) ,FACCL(6),bFERE(2,6) ,FAeb(6) ,KiiCUL(6) ,CHLRt(2,6) ,F'ACC(6) , 
?yC£CL(6) ,CFERE(2,6) , F ACC ( 6 ) , FUCUL ( 6 ) , S TU^ Y ( I S ) , SCENE ( 19 ) , CVAL , 
bALPFL,CHC ,CbG,CtU A, ALPFZ,ALPF,ALPF.E,CLACD,CLDEL,CLA02,CLADl, 

9F, IRI,FF,LCCER 
CALL FAIN2 
CALL FAN2A 
RETCRN 
ENC 

CVE«LAY(«LINCA,3,C) 

PRCGRAF TFREE 

DIFENSIfN C( 19) ,EPS( 19) ,TRANS( 19) ,REYtl9) ,ETA(19) ,FCPP(19) ,CLMAX(1 
19) ,ZFERE( 2,6) ,V,FFR6(2,6 ) ,APRAY(5,25,8 ) , Y ( 1 9 ) , 1 AL ( 19 ) , l3E T A C 19 , 19 ) , 
2F:AZZC6) ,FZCCL(6) ,FAXX(6 ) , F XCCL ( 6 ) , YFERE ( 2 ,6 ) , MYCCL ( 6 ) , F4Y Y ( 6 ) , TR I > 
3U9,L9),CF( 19),CIST( 19) , YCA ( 19 ) , YC AX U9 ) , YX ( 1 9 ) , TON Y (■ 1 9 ) , AL PG < 19 ) , 
AXFEP£(?,6) ,F«CCL(6) ,i’^A«rtt6) 

OIFE^ SI^•^‘ C VAL(.19 ) , ALPFU ( 19 ) , CBC ( 19 ) , CBG ( 19 ) , DELTA ( 19 ) , ALPHZ( 19), 

I 1ALPFM9) , ALFFE( 19 ) , CL ACC (19 ) , CLUEL ( 19 ) , C LAD2 M9 ) ,CL 1 ( IS ) , F ( 19 ) 
CCFFC^ KGR,KIR,KIL,KCl, \/SA(-19) ,Sv.( 19) , vSeAK,EYETL,CTS,XPb,YPt , JP, 
liP.RAt:,ALPFB,KSTAL, ISTAL ,KCLNT.,Ab ( 3) 

CCFFCN NSLIP,VR(19) ,DA( 19) ,AS( 19) ,TLU9) ,SV( 19) , FUNC , YC ,CONAC , 
1ALPFV( 16) 

CCFFCN INN'CW, I Sk I! ( 3 ) , AL PF A , RE Y\ , CLL , REYGN , XFAX , ALFAX ( 1 9 ) ,CLFAX,Ct 
1EPS,TRANS,REY,ETA,FCPP,ZFERE,^FLRE,ARRAY, Y,bETA,lFAC, TRIX,TAU,KAX> 
2,FAZZ,FXCri ,FZCCL, A SPEC, TAPER, BF ,REYNC,U1 SCR, PI ER,Ckb,C,TSTAX, EDGE 
3,SIG, ALPFR,NFLAP,NL'vL,NP, lY, IZ, IR, IP, IS, 1 ST AR , a , b , F , 1 AUT , T ALR , 
^rwIS r,R,HkX,YFERE,FYCCL,FAYY,FLAP,TGNY,TkISA,X, Z,CN ,ACC,XhEREf 
5Mk£CL,FAWw,CAVB( I 9 ) , C AF BR , C AF BT , OUF Y 1 , DUF Y2 , NAFE ( 25 ) , AHt Rc ( 2 , O ) , 
6F'AAA(.C) ,FACCL(6) ,EFERE( 2,6) , F Abb 16 ) , MtCOL ( 6 ) ,ChFRB(2,6) ,KACC(6) , 
7FCCCL(6) ,CFFPE(.2,6) , F AC C (.6 ) , FCCCL ( 6 ) , S TON Y ( 1 9 ) , SGENc (• 19 ) , CV AL t 
bALPFU,CfclC,CBG,CbLl A, ALPFZ,ALPF,ALPh6,CLACD,CLDEL,CLAD2,CLA01, 

9F, IRI ,FF,1CCER 
CALL FAIN2 
CALL FAIN3 
RETURN 
ENC 

-SUBRCbTINE FINV(A,N,C,1,F) 

FATRIX INVERSION SUBROUTINE 
CIFENSICN A(1),LM),F(1) 

SEARCH FOR LARGEST ELEFENT 

D*1 .0 
NK--N 

DC 180 K=1,N 
NK = NK,+ N 
L(K)=K 
FtK)=K 
KK=NK+K 
eiGA=A<KK) 

CC 2C J=K,N 
IZ^N*( J-1 ) 

LC 2C I=K,N 
IJ=IZ+I 

IF(AeS(EIGA)-ABSCA(IJ)) ) 1C, 20,20 
10 BIGA^AdJ) 

L (K ) = I 
F(.K )*J 
20 CCNTIKUE 

INTERCHANGE ROk^S 

J = LCK.) 

IFU-K) 5C,5C,3C 
30 KI^K-N 

DC AC 1 = 1, N 
KI=K1»+N 
HClC=-A(Kn 
JI^KI-K4J 
A(K1 )^A( JI) 

AO AtJI)*FCLC 
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interchange COLtMNS 
50 

iF(i-K) a0fac»6C 
oO JF*N*CI-1) 

DC 7C J=1»N 
JK-NK+J 

Jt^JP+J ^ 

HCIC^-AUKI 
AUK)-A( JI) 

70 ACJI)=HCLC 

DIVIDE CCLUKN BY HINDS PIVOT (VALUE OF 
PIVCT ELEHtNT IS CONTAINED IN tilGA) 

80 IF( ABS(eiGA)-L.E-20) 9Cf90»ICC 
9C 0«C.C 
RETURN 

ICO DC 12C I»lfN 

IF.(I-K) 11C»120.11C 
lie IK=KK+I 

ACIK)^A(IK)/C-BIGAI 
120 CCNTINDE 

REDUCE HATRIX 

DC 15C I=lfN 

ik*nk4I 

HCLC«A(IK) 

U^I-N 

DC 15C J=ltN 
IJ=IJ4N 

IF(I-K) 13Crl5C»13C 
130 IF(J-K) lACfl50,lAC 
lAC KJ=IJ-I+K 

AU J)^FCLC*A(KJ)+A( IJ> 

15C CCNTINUfc 

DIVIDE ROW BY PIVOT 

KJ-K-N 

DC 170 J=1,N 
KJ-KJ+N 

IF(J-K) 16Cfl70»16C 
160 AlKJ)=iMKJ)/eiGA 
170 CCNTINUE 

PRODUCT OF PIVOTS 

D«C«BIGA 

REPLACE PIVOT BY RECIPROCAL 


A(-KK):-1.0'/fiIGA 
180 CCNTINUt 

FINAL RC« AND CGLLHN INTERCHANGE 

K*N 

190 K=K-1 

IF(K) 260t260,2C0 
20C I-itK) 

IFv(I-K) 230,230f210 
210 JGYN*(K-1) 

JR^*( I-l) 

DC 22C J»lfN 

JK=JC+J 

HCLC=AtJK) 

JI=JR+J 
A(.JK)^-A( JI) 

220 AUI)=HCLC 
23C J = H(.K) 

IF(J-K) 190,190»240 
2A0 KI=k-N 

DC 25C I^ltN 
KI = KI:4N 
HCLC^ACKI ) 

JI-KI-K4J 
AUI )*-A( JII 
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250 AtJn=iHCm 
GC TC 190 
260 RETURN 
tNC 

SUBRCUTINt CAGET{ ARKAYt IFILEf in 


A 9 

SLBSCUTIKE TC GET TABLE Fket> DISK AND PUT 
IT INTC CORE 



TABLE PRESENTLY IN CORE IS INNUW 

IP TABLE IS ALREADY IN CCRE THEN RETURN 
IE NCT THEN GET TABLE FRCH DISK 


IF( IFILE-INNCk) 10,90,10 
1C H*1 

RERINC 1FIL6 
REAC(IFILE) ARRAY 
REMIND IFILE 


RESET TABLE PRESENTLY IN CCRE INDICATOR 


fNNCR-IFILE 
IF(IFILE-5) 50,30,90 
30 DC AC JF0X=1,NLVL 
KRCR = NAAAUFCX )-2 
KCCL=PACCL( JFCX) 

DC AC KB0B=2,KCCL 
ARRAY(JFCX,2,KaCB )=-9.C 
AO ARRAYUFCX,KRCn,KDCb)s9.C 
GC TC 9C 

50 IF(IFlLE-l) 9C,6C,9C 
60 OC bC JFOX=l,NLVL 
KRCa=RAXX( JFCXI-2 
XCCL-NXCCL( JFCX) 

OC 7C KECB=2,KCCL 
ARRAY(JFnX,2,KeCB)=-9.0 
70 ARRAY! JFCX,KRCh,KBCb)=9.C 
80 CCNTINLE 
90 RETURN 
ENC 

SLBRCLTINE A A A (CL I S T , NV ) 


SLPRCUTINE TC OUTPUT A ONE CIKENSIONAL 
ARRAY 


DIRENSICN CLIST(l) 

TP=6 

■RRITEC IP, 1C) ( J,CL1ST( J ) , J = 1,NV) 

RRITEC IP,'2C) 

RETURN 

10 FCRRAT(5( IX, IF (., I2,2H» ,£16.6)1 
20 FCRKAT(2( if ) ) 

ENC 

SUBRCUTINE ZZZtVALLE) 

SUBRCUTINE TC OUTPUT A SINGLE VALUE 
OUTPUT VALUE IN BCTH F ANC E FORRAT 


IP*6 

WRITE! IP,'10) VALUE, VALUE 
RETURN 
C 

10 FCRRAT(1X.,F15.8,E16,8/IX» 
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c 

c 

c 

c 


c 

10 


c 

c 

c 


c 

c 

c 

c 


c 


c 

c 

c 


10 

10 

IG 

^0 

bO 


c 

8 

c 


END 

SGBHCUTINc SSSlAtNPl 

SLBRCtTINF TC CGTPUT A SCtARE TWC 
CIKENSICNAL ARRAY 

CIREKSICN A( 19 , 19 ) 

IP *6 

WRITE (IP, 1 C) ((J,K,A( J,K),K= 1 ,NP) ,J=l»NP) 

WRITEC IPf 2 C) 

RETURN 

FCRPAT( 5 ( IXtll-tf 12 , Ih, I 2 , 2 »-) ,E 13 * 6 ) ) 

20 FCRPAT( 3 ( 1 I-C/)' 

FLNCTICN TERP(R 1 ,R 2 ,R 3 ,C 1 ,C 3 ) 

INTERPCLATICN FUNCTION 

1 F(R 1 -R 3 ) 2 C, 10,20 
10 TERP^Cl 
RETURN 

20 T£RP=C 1 +UC 3 -C 1 )*(<R 2 -R 1 )/(R 3 -RI) ).) 

RETURN 

ENC 

SUEKCUTINE SfcTSW 

SUBKUUTINE CHECKS SwITCH SETTINGS ON DATA 
CARC am; LISTS CPFIUNS SELECTED 

OCPHCN KCR,KIR,K 1 L,KCL, VSA( IS) ,Sk( 19 ) , VS BAR , E YET L , C TS , XPB , YPB , JP , 
I IPR A e, AL PH B,KSTAL, I S T AL , K CLN T , AU (- 3 ) 

CCHHCN NS.L 1 P, VR( 1 9 ) , CA ( 19 ) , AS ( 19 ) , TL (19 ) , SV ( 19 ) r FUNC , YO ,CONAC , 
1 ALPHV( 16 ) 

INNCw, ISrtlTO) 

K = C ^ 

IP = 6 

WRITE(IP, 90 ) 

^ IFdSWiTCl) ) 2 C, 20,10 
10 K=K +1 

WRITF( IP, ICC) 

20 IF(ISWIT( 2 )) A 0 ,^C ,30 
3 C K*K+l 

WRITEC IP, IIC) 

AC IF(ISWIT( 3 )) 60 , 60,50 
50 K=K +1 

WRITE(IP, 12 C) 

60 IF(K) 8 C, 70 , 8 C 
70 WKnE( IP, 130 
8 C RETURN 

90 FCR^AT^ 1 H 1 /UC/ 1 HC, 5 CX, 29 HSPEC 1 AL FEATURES FOR THIS RUN/IHG) 

ICO FCRHAT( 51 /, lAHREAU IN VALLES/IHC) 

110 FrRHAT(. 51 X, 3 AOKACE (f.UPLT CF KEY C AtCULAT IONS ) / IHO ) 

FLRP'Al ( 51 X, 2 f:HPRl\T MATRICES BETA A)\‘D TRIX/lHO) 

13 ^ FCRHAT( 51 X, 31 F\C SWITCH SETTINGS REGULAR RUN) 

ENC 

SUBRCUTINE CATSW(N, ICLNC) 

SUmRCUTINE hakes CECISIGN based GN SETTING CF THE SrtITCH, 
SET = 1 ,NGT SbT=C. lCCiMC=l IF SWITCH IS SET,IC 0 N 0 = 2 IF 
SWITCH IS NOT SET 
CCHKCN INNCW, ISWITO) 

IF(N= 3 ) 1 C, 2 C, 3 C 

IF(ISwrr( 1 ) ) AC, AC , 50 

IF( ISWII( 2 ) ) AC, AC , 50 

IFUSWlTOn AO, AO , 50 

ICCNC ^2 

RETURN 

ICCNC^l 

KETLRN 

ENC 

SUBRCUTINE AERC A (ARRAY , NLVL , WHERE , HXCOL , HAXX , IF 1 LE, KEEP ) 

SUBROUTINE TC READ AERODYNAMIC TABLES FRCK 
CARDS AND PUT TABLES ON UISK 

OMENS ICN N AMF (. AC ),M 1 AXXC 6 ),HXCCL( 6 ), WHERE ( 2 , 6 ), ARRAY 15 , 25 , 8 ) 
CCMMCN K 0 R,KlK,KIL,KCL,VSAU 9 ),SWH 9 ),VSbAK,LYETL,CTS,XP 3 ,YPBt JPf 
lFPRAfi,ALPHB,KSTAL, ISTALtKGLNI ,AB(. 3 ) 

CCPMCN NSLIP,VR( 19 ) ,CA( 1 9 ) , AS ( 19 ) , T L (.19 ) , SV C 19 ) ,FUNC, YO,CONACt 
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c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

IOC 


90 


c 

c 

c 


lALPhV( 16) 

CCK^CN INKCW 
1MEGER*2 KEEP 

yAXX(6) CdMAlNS NUMBER CF RCWS IN A TABLE 
wl-ERE(2f6) CCNTAlNb lAbLE ^IL^BER AND TAU 
VALLE 

INNCk IS THE TABLE PKESENTLY IN CORE 

TR»e 

IP^6 

INITIALIZE LEVELS IN WHERE 



LCCP rC REAC IN LEVELS OF A SET CF EITHER 
LIFT. CRAG, CR PITCHING ^C^:E^T 

DC AO LVL=l.NLVL 

REAC AND PRINT NU^'l3ER OF RCWSt CLLUMNSt TAt 
VALLES FUR A GIVEN LEVEL 

REAC t IR»50) NC,NCCL»WHERE(2,LVL) 

WRITE(IP,6C ) \C»NCCL»hHER£(2,LVU 

STORE NUMBER OF CCLUFNS 

MXCCL(LVL)=NCCL 

STORE NUMBER OF RCWS 

MAXXCLVD^NL 

REAC AND hRITE TITLE OF TABLE 

REACdRtTO) NAME 
WRITE(IP,80) NANErLVL 

REAC VALUES FOR TABLE 


DC 20 1=1, NC 

REAC 1 1 R, 90 { ARRAY (LVL, I ,J)»J=l,b) 

DC 3C JJ=1,NC 

30 WRITE! IF, ICC) t ARKA Y ( LVL , J J , 1 1 ) , II = 1,NC0L) 

AO CCNTINUE 

WRITE COMPLETE TABLE UN DISK 

RETURN 

FCRMAT(eFlC.5) 

50 FCRMAT(2I2,F1C.0) 

60 FCRMAT(1X,2I2,F5;2) 

7C FCRMA J ( ACA2 ) 

80 FORMAT! 11X,ACA2,2X, 12) 

FCRMAT!F7.3,7F8.3) 

ENC 

SUBPGLTINE BR ICG LCCZ 1 ,NS ,NP ,LCM , I 2XV , I E , £Y, AU , AMB , XX , I S , I P t YY ) 

SLBRCUTIUE TC INTERPOLATE BETWEEN TABLES 

OIMENSICN XX! 1) ,EY! 1 ) ,AU( 1 ) • CCZ 1 L 1 ) , CCZ2 ! 19 ) , CCLR 1! 1 9 ) , C ALR 1( 19 ) , 
1CCLR2(19),CALR2(19),ATMP(19),RLYM9),TAU(19) , ARk A Y ( 5 , 25 , 8 ) ,C< 19) . 
2EPSU9) ,TRA\S{ 19) , E TA ( I 9 ) thCFP ! 19 ) , CLr'AX (19 ) , Z H Ek L ! 2 , 6 ) , nH E P. c ( 2 , 6 ) 
3,Y(19),BETA(19,19),1KIX(19,19) ,MAZZ(6) .MZCOL (fc) ,MAXX(o) ,MXCGL(6) , 
^YFFRE ( 2,6 ) , MYCCL! e ),MAYY(6),CM(19),XHFKb(2,fc),MA^,w(6) ,M»%COL !6 ) 

CCMMCN KGR,K 1R,KIL,KCL, vSAi 19) , Sr.! 19) , VSCAR , E YE TL , C IS , XPB , YPB , JP , 
lIPRABfALPFfifKSTAL , I 5TAL , KCUNT , AB ! 3 ) 

CCMMCN NSLIFtVR! 19) ,CA( 19) ,AS! 19) , TLL19) *SV( 19) , FUNC , YO , CDNAC t 
lALPFVCU) 

CCMMCN INNCW, ISwIT! 3) , ALPHA , KbY.M , CLL , RE YCN, XM AX , ALMAX ( 19 ) ,CLMAX,Ct 
IEPS,TRANS,REY,FrA,HCPP,ZHFRE,WHEKC,ARt<AY,Y,r^ETA,TFAC, TR I X , TAU , MAXX 
2,MAZ2,MXCCL ,MZCCL,ASPFC,TAPtR,BF ,KEYNC,UlSCR,PIEK,CkB,(;),TSTAX,ECGE 
3fSIGfALPHR,NFLAP,NLVL,NC,lY,IZ,IH,lU,lT, 1 STAR , A , B ,H , T AUT , TAUR t 
ATWlST,R,BWX,YHERb,MYCCL,MAYY,FLAP,TL»NY( 19) , I w I S A , X , Z , CM , ACC , XHERE t 
SMWCCLfMAwWfCAMBC 19) f CAMi3P,CAMBT,DUMYl,DUMY2 f NAME ! 25 ) , AHERE I 2 , 6 ) , 
6MAAA16) ,MACCL!6) ,BHERE!2,6) ♦MABB16) fNBCGL!6 ) ,CHERt!2»6) ,MACC!6) t 
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7HCCCLU)t Ct-ERE(2»6) ,VACC (6) ,KCC0U6) 

IMTIALIZATION 

IF REYCN=S99 THEN SPECIAL CASE 

DLPY?*C.C 

DLHYlaC.O 

IMPEYCN-9S9. ) 20fl0f2C 
10 KEY=l 
GC TC 3C 
20 KEY«2 

STORE C VALUE 

30 CLT»C1L 

NEVt IS THE FILE NLHbER OF THE OTHER CUBE 
PRIMARY CUBES ARE NUMBERED li2t3tA 
SECCNCAKY CUBES AKt NUHOEREC StlLfl5f20 

NEH»LCH*5 

STORE XPAX 

XPXsXHAX 

CETERMNE IF SINGLE VALUE IS TO BE USED CR 
LIST LF VALUES IS TO BE USED IN LOOK UP 

IF(IS-IP) 50,40,50 
40 KGC=l 

SET UP FOR CONSTANT VALUE OF X 

ATPPI l)=XX( I) 

GC TC 7C 

SET UP FOR VARIABLE VALUE OF X 

50 KGC=2 

DC 60 J=NS,NP 
60 ATyPlJ)=XX(J) 

PUT PROPER TABLE IN CORE 
7C CALL CACETI ARRAY, NEH, I2XY.) 

SET UP ALPHA EITHER VARIABLE OR CONSTANT 

DC 190 K=NS,NP 
GC TC (80,90, KGC 
80 ALPHA = A|yP( IS) 

GC TC ICC 
90 ALPHAaATPP(K) 

GET TAU VALUE FROP ARRAY 

ICC TAUXaTAL(K) 

GC TC (12C,110), KEY 

GET PROPER REY.NCLCS NUHBER EITHER REGULAR 
CR PAX NUPbER 

lio RcYCNaREYlK) 

REYN»999. 

GC TC 130 
.120 REYN = REY(K) 

130 CLL=C1T 
XPAXaXPX 

PERFORP LCCK FCR LIFT, DRAG, PITCHING 
PCPCNT CR FLAP CASE 

UC TC ( 140, 15C, 16C, 170 , LCP 
140 CAIL ARC(.ARRAY,TAUX,PAAA,PACCL, I£,AKERE,NLVL) 

GC TC 180 

150 CALL A">C( ARRAY, TAuX,MAeD,PBCGL, IE, 6HERE,NLVL): 

GC TC leo 

160 CALL ARC( ARRAY, TAUX,PACC,PCCCL, IE, CHERE,NLVL). 

GC TC 160 
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17C CALL ARC(ARRAY,TAtX,NACO.KCCCi.tI(:*OHERE«NLVL). 

STCRE VALUES FCUNC IN LOCK UP 

1«C CCZ2(K)=YY 

CCLR2»K)=CUPY1 

CALR2IK)=CUKY2 

REPEAT FOR NUMBER CF VALUES TO BE FOUND 

190 CCNTINUE 

GET NEXT TABLE IN CORE 
CALL CAGET(ARRAY,LCFf lY) 

SET UP ALPHA VALUE 

DC 310 K=NS,NP 
GC TC (20C.21C), KGO 
200 ALPHA=ATHP( IS) 

GC TC 220 
210 ALPHA-ATKPIK ) 

SET UP REYNCLOS NUHBER 

220 GC TC (2AC,23C), KEY 
23C REYCN=REY(K) 

REYN=999. 

GC TC 250 
240 REYN=REY(K) 

SET UP CVAL, TAU, AND XMAX VALUE 

250 CLL=CLT 

TALX=TAUK) 

XNAX-XKX 

LCCK UP FCR SECCNC LIFT, DRAG, PITCHING 
HCHcNT, CR FLAP CASE 

GC TC (26C,27C,28C,29C) , LCP 
260 CALL ARC! ARRAY, TAUX,WAXX,PXCCL, IE, WHERE, NLVL) 

GC TC 3C0 

27C call ARC(ARRAY,TAUX,mAZZ,PZCCL,IE,ZHERE,NLVL) 

GC TC 3C0 

280 CALL ARC! ARRAY, TAUX,PAYY,PYCCL, IE, YHERE,NLVL; 

GC TC 3C0 

290 CALL ARC! ARRAY, TAUX,HAWW,PWCCL, IE, XHEKE,NLVL) 

STCRE values FOUND IN LOCK LP 

300 CCZUK)=YY 

CCI.R1(K)=DUHY1 
CAIRIIK ) = CUPY2 
310 ccraiNUE 

SPECIAL CASE FOR LIFT LOCK UP 
GC TC (32C,4CC,4C0,40C) , LCN 

REPEAT FOR ALL VALUES OF TAU 

320 DC 39C K*NS,NP 
ALPHA=ATHP(K) 

CCLK = TERP(CANeR,CAP3(K) ,C At' H T ,CCLR 1 ( K ) ,CCLR2 (K ) ) 

CAiR = TFRP (CAVER ,CA^^. (K ) ,CANbT ,CALR1 (K) ,CALk2(K)) 

IF( (ALPHA-CALRI ( K ) )»(ALPHA-CALR2(K) ) ) 34C, 330,330 
330 CCZK.K ) = TERP(CAP.BR,CAPB(K) ,CAPBT,CCZUK) ,CCZ2(K) ) 

Cr TC 35C 

340 IF(CALR2(K)-CALR1 (K) ) 350,350,360 
350 IF(ALFHA-CALR) 37C,37C,36C 
360 IF ( alpha-calf ) 380,380,370 

370 CLA*TERP(CALRI(K) , CALR2 ( K ), ALPHA , CCLK 1 ( K ) ,CCZ1(K) ) 
.CLC»TERP(CA^'BR,CA^B(K) .CARET ,CLA,CCLR2(K) ) 

CCZllK )=TERP(CALR2(K ) .ALPHA, CALK, CLC.CCLR) 

GC TC 390 

380 CLe = TERP(CALR2(.K ) ,C ALR I ( K ) , ALPH a , CCLR2 ( K ) ,CCZ2(K) ) 

CLC = TCRP(CA,VBR,CAH0 (K ) ,CARBT ,CCLR 1 ( K ) ,CLS ) 

CCZltK)=TERP(CALRl( K ), ALPHA ,CALR , CLC , CCLR ) 
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39C CCMINUE 
KETCRN 

REGULAR INTERPCLATION BETWEEN TABLES 

ACO DC AlC K=NS»NP 

AlC CCZl (K)=TEftP(CARBR,CARi3(K),CARt!T»CCZl(K) ,CCZ2(K) ) 

RETURN 

ENC 

•SuBRCUTINE ARCCRRAY, T AU »NRC WS , NCCLS » I E , WhER f , NL VLS ) 

SUBROUTINE TC INTtRPCLATE BETWEEN LEVELS OF 
A GIVEN TABLE 

D IRENS ICN ARRAY! 5,25,8 ) ,NRCWS(b) , NCOLS ( 6 ) , CLK ( 2 ) ,ALR(2) ,TCNY(19) « 
lWF£Rt(2,b),YhERE(2,6),RYCCL(t),I‘AYYlb),UR(19),XHEHE{2,6),R.A«w(6), 
2RWCCL(6 ) ,CU9 ) ,EPS(.19 » ,TRAr\S U<,) ,KEY ( 19) ,ET A(.19) ,HCFP ( 19) ,CLRAX(19 
3),Z)-tRE(2,6),)-Ert£(2,6),Y(19 ) ,UAU( 19 ) , BET A ( 19 , 19 ) , TR I X ( 19 , 19 ) , RAZZ ( 
A6),RZCCL(6) ,RAXX(6) ,RXCGL(6> 

CCRRCN KGR,KIk,KIL,KGL, V£A( 19) ,SW(19) , VStAR,£YETL,CTS,XPB,YPB, JP, 
lIPRAe,ALPI-3,KSTAL,ISTAL,KCUNT,AD(.3) 

CCR^C;^ NSLIP,VR( 19) ,DA( 19) ,AS( 19) ,TL (.19) ,SV( 19) , FUNC , YO ,CUNAC , 
lALFFV ( Ifc ) 

CCA^CN INNOW, ISV.I TI.3) , A LPF A , RE YN , C VAL , RE YCN , XRAX , AL.»' AX ( 19 ) ,CLRAX,C 

1 , EPS, TRANS, RtY, >= I A,hCPP , ZI-ERE.FtkE , ARRAY , Y.UcTA, 1 FAC , TR I X , UAU , RAXX 

2, RAZZ,^XCCL,RZCUL,AbPEC,TAFEK,BF,REYNU,DIS(;R,PIEK,CRB,C,rSTAX,ECGE 
3 ,SIG, ALPMR, NFLAF,NL vL ,NP , I Y, IZ, IR, IF, I V, I ' T .'iR , A , ti , H , T AUT , T AUK , 

ATw IST,R,3wX,YFEr<£,RYCCL,RAYY, FLAP, TCNY,TW ISA, X, Z,CR , ACC, XhERE, 
5RWCCL,RAWw,CARB(19),CARaK,CAFUT,CURYl,CUFY2,NAME(25),AHERE(2,6), 
6^'AAA(.t),M'\CCL(6),BFERE(2,6),^ABii(.6),^BC0L(6),CHEkE(2,6) ,RACC(6) , 
7RCCCL(6),CFERE(2,6),RAC0(t) ,RCCUL(6 ) 

1E = C 

XTRAL=C. 

XTRAU-C. 


IS TAU LESS THAN CR EQUAL TC LOWEST LEVEL 
TAU VALUE 

I F f T A U - W H E R E (>M-» •)• -1 0 T 2 0 , 2 C 
1C J = 2 

XTRAL-l. 

GC TC 8C 

20 rF(TAU-WHERE(2,NLVLS) ) AC, 30, 30 

YES, SET J ECUAL TC RAX LEVEL 

30 J*NLV.LS 
XTRAU^l. 

GC TC 80 

NC, SEARCH LIST OF LEVELS (TAU VALUES) 
UNTIL ONE GIVEN IS GREATER THAN ONE TO BE 
FCUNU 

AC DC 5C J=2,NLVLS 

IF(TAU-WHERE(2,J) ) 90,90,50 
50 CCNTINUt 

ERROR IF NONE CAN BE FOUND 

IE = 6 

IF(IE) 70,7C,60 

60 WR I TE I IPf5AC ) 1 E , INNOW , OVAL , ALPHA , REYN , R E YON , XMAX 
70 RETLRN 
80 CCNTINLE 
90 LVL=WHERE(1,J) 

RAXR = NRCWS( J ) 

RAXC=NCCLSIJ) 

1F{ ALPHA-999.. ) 100,130,100 
100 IF(REYi\-999. ) 110,120,110 
110 IFICVAL-999. ) 260,250,260 
120 IF (CVAL-999. ) 2AC,260,2AC 
130 IF (CVAL-999. ) 1A0,150,1AC 
lAO IFIRFYN-999. ) 230,260,230 
150 IF(PEYN-999. ) 2cC, 160,260 
160 IFIREYCN-999. ) 130,170,180 
170 IF(XRAX) 220,260,220 
180 IF(XRAX) 200,190,200 
190 IFLP-.l 



c 

c 

c 

c 


GC TC 210 
2CC IFLP=2 
210 IS=5 

GC TC 270 

220 

GC TC 270 


230 

2AC 


IS=1 

GC TC 270 
IS=2 

GC TC 270 


25C 


IS=3 

GC TC 270 


26C It=6 


RETLRN 

27C C/^LL LCCK(/^RR/iY.LVL»KAXRfPAXCtIE) 
CLR(-2)=CuyY2 
ALR(.2) = CU^Y1 

GC TC (2«Cf29C,3CC»3lCf 32C)f IS 
280 F1NC=ALPHA 
ALPFA=990. 

GC TC 350 
290 F1KC=REYN 
REYN=999. 

GC TC 350 
3CC FINC=CVAL 
CVAL=999. 

GC TC 350 
310 FINC=REYGN 
REYCN=9S9« 

GC TC 350 
320 F1^C = X^'AX 

GC TC (33C,3^C), IFLP 
330 XI^AX = C. 

GC TC 350 
340 XNAX=1CC. 

35C LVL = VsFFRE( 1,J-1) 
yAXR^NRCwS ( J-1 ) 

N?AXC = NCCLS( J-1) 


SPECIAL PROCEDURE FOR I NTcRPCL A T ICN IN TFt 
NEIGFbCRHCGC OF CL MAX 

-CALL LCCKI APRAY,LVL,MAXR,MAXC»IE ) 

CLP ( 1 )=CUMY2 
ALR( i)=CUMYl 
IF(IE) 36Ct36Ct60 
36C Rl=WFERE(2, J-1) 

R2=TAL 

R3 = VFERE< 2t J) 

C3 = FIi\C 

GC TC (49Ct5CCT37C,52C.53C), IS 
373 IF(INNCVv-l) 38C,39C»36C 
380 IF(INNCw-5) 51C,3GC,51C 
39C DUM V l = T FRF (R1 ,K2fK3 ,CLR 1 1) »CLR(2) ) 
0UMY2=rtRP(RltR2fK3,ALRCl),ALR(2)) 

IF( (ALFFA-A.LK( 1) ) ♦ ( L PF A- A L R ( 2 ) ) ) 4C0,5lCt510 
4CC IF(XTRAL--U) 41Ct420r4lC 
410 IF(XTRAL-1.) 44L,430,44C 

42C CVAL=CCFYl-CLR( I ) +T t RP ( ALPF A » CUM Y2 t ALR ( 1 ) tC LK ( I ) ,CV AL ) 

RE ^LR^ 

430 CVAL=CcNYl-CLR( 2 )+TERP( ALPFA,DUMY2f ALR(2 ) ,CLR(2) rC3) 

RETLR^ 

4h 0 Ir (ALR(2 )-aLR( 1 ) ) 45C,45Cf46C 

45C IF ( ALPFA-CLMY2 ) 47C,47Ct48C 

460 I-F( ALPrA-CL^'Y2) 460,460,470 

4 70 CLA = TtPP(ALR( U , A LR ( 2 ) , A L PF A , C LR ( 1 ) , CVAL ) 

C L C = T c P D ( R 1 1 R 2 , 3 , C L A , C L R ( 2 ) ) 

CVAL=TERP( ALR(2) , AL PF A , CUM Y 2 , CLC , DUMY 1 ) 

RETURN 

4 80 CL3 = TFRP( ALR (2 ) , ALK ( 1) t ALPF A ♦ CLR ( 2 ) t C3 ) 

.CLC = TERP(R1,R2,R3,CL'<( I ) ,CLB) 

CvAL=TERP{ ALR( 1), ALPFA,CLMY2,CLCfOLMYl) 

RETURN 

490 Cl=ALPFA 

ALPFA=TEKP(R1,R2,K3,C1,C3) 

RETURN 
500 C1=REYN 

RtYN=TERP(RltP2fR3fClfC3 ) 

RETURN 
510 Cl^CVAU 
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CVAL»TFRPfRl,B2,R3,Cl,C3) 

RETURN 

520 Cl*R6Y(JN 

REYCN*TERP(Rl,R2,R3,ClfC3) 

RETURi\ 

53C Cl»Xi^AX 

XRAX*TERP(Rl,R2,R3,ClfC3) 

RETURN 

5^0 FCRRAH20X, 12HERRCR CCCE (iI2,A2H ) If 1 CVAU GREATER THAN RAX VAL 
lUE UISTEC/37X,3^HIF 2 CVAL GREATL-R THAN TAHLE VAUUE/3/X,A IHIF 3 AU 
2PH4 VAUUE GREATER THAN TABUE VAUUh/37X , 2<3H I F 6 TAU VAUUE CANNOT BE 
3FCUNC/37Xf 13HTABUE NUHfiER ,I2,dH H\ CCRE / lUX , 6HC- VALUE* , F 10 . 2 i 5X , 
A6HALPHA=,F1U.2,5X. 13HREYNCLCS Ml . = , F 10 . 2 , 5X , 6hRt YCN= , H 1 ^ . 2 , 5X , 5HXM 
5AX*,F1C.2/12C( IH/i » 

ENC 

SUBROUTINE LCCX UR t LVL t KAXR , PAXC i I E ) 

SUBROUTINE FOR TwC DIMENSIONAL TABLE LOOKUP 

DIKENSICN A(5,25t8),TC;NYll9),YHhRE(2,6),FYCUL(6),MAYY<6),CN(19), 
lXHERE(?,6>fHAhW(6) .NwCCL (6 ) , C ( 1 7 ) , fc PS ( 1 V ) , Tk ANS ( 19 ) ,RE Y (19 ) , E T A ( 19 

2) ,HCP;’(19),CL^'AX(19),ZH5RE(2,6),HEKE(2t6) t Y ( 19 ) , UAL (19 ) , BET A ( 19,19 

3) ,TRIX( 19,19) ,MAZZ(6) ,MZCCL(t),MAXX(6) ,MXL0L(6) 

CCHHCN KCR,KlR,KIL,KCL,VSA(19),SN(19),VSeAK,EYETL,CrS,XPB,YPB,JP, 
1IPRAD,ALDH2,KSTAL, is rAL,KCUNT ,Arj(3) 

CCHHON NSLIF,vR(19),DA(19),A5(19),TL(19),SV(19) , FUNC , YO , CDNAC , 
lALFHV ( 16 ) 

i \Nrk . i <;i> i t « . ai Pka . . f • • 


XTRAL*0. 

XTkAU=C. 


LRCh*MAXR-2 

IS*1 


LRCVs IS THE LAST RCW CONTAINING INFCRMATION. 
IN ANY TAliLE. THE LAST TnO RCHS CH AimY 
TABLE CCNTaIN MAX DaTA. 


IS REYCN E&LAL TO 999. 

IH YFS TItEN NORMAL AND w£ V,ILL ALREADY HAVE 
SET THE SWITCH IS 10 1 AND WE ,.ILL USE THE 
VALLE CH REYK 

IF NO T) L..I SET REYN TO REYCN AND SET SWITCH 
IS TO 2 


IF(REYCN-999. ) 10,20,10 
10 REYN*REYON 
1S=2 


IS THE REYNOLDS NUMBER WE ARE LOCKING FOR 
GREATER THAN OR ECLAL TO THE REY'.CLDS 
NUMBER GIVEN ALONG THE FIRST ROW CF THE 
TABLE 


20 IF(REYN-A(.LVL,1,MAXC) ) AC, 30,30 
30 ,LCCR = MAXC 
XTRAL=l. 

GC TC 7C 


NCRMAL CASE. IF REYNOLDS NLMbEK IS LESS 
THAN MAX .REYN NL-'^DER IN TABLE THEN WE 
CHECK TC SEE IF IT IS GREATEk THAN THE 
MINIMUM. KcYNCLOS NUMBER LISTED IN THE TABLE 


AO IF(REYN-A(LVL,1,2) ) 5C,6C,6C 


IF LESS THAN MINIMUM, WE WANT TO USE THE 
MINIMUM VALLE IN THE TABLE 


50 LCCR«3 
XTRAL*1. 
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GC TC 7C 

IF LESS THAN HAXIKUH AND GREATER THAN 
. MMHLH VnE hANT TC SEARCH TABLE UNTIL HE 
FINC A RtYNCLUS NLHbER GREATER THAN THE 
GIVEN KEYNCLCS" NUHbER ' 

Ir REYN LESS THAN KEEP LCCKING 

IF REYN GREATER THAN SET LP Rl,R3 FGR 

INTERPCLATICN 


60 

70 


DC 61C L0CR*3fPAXC 
TF(REYN-A(LVLt ItLCCR) ) 
Rl=AtLVL»ltLCCR-l) 
R3=AlLVLtltLCCR) 

GC TC (eOtiSOf IS 


7C«7Gt610 


SECTICN FOR NORMAL LOCK UP CF ALPHA AND 
CVAL. A VALUE CF 999 SPECIFIES THAT THIS 
variable IS THE One hHCSE value is TC BE 
FCLNC IN THE TABLE. 


80 

90 

100 

110 

.120 

130 

lAO 


IF.I ALFFA-999. 
IF(REYN-999. ) 
IF(CVAL-999. ) 
IF(CVAl-999. ) 
IF(RFYN-999. ) 
IF(REY.\-999. ) 
IFIREYCN-999. 


) 90illO,9C 
ICO, 600, ICC 
fcCO, 190,6CC 
12C, 130, 12C 
16C,6CC,16C 
ecc, 1 A 0 , 6 CC 
) 15C,OCC,15C 


SECTICN FCR LOOKING UP MAX VALUES 


150 IFIXMAX) 50C,59C,5eO 

SECTICN TO LCOK UP ALPHA FCR GIVEN CVAL BY 
INTERPCLaT ING BETWEEN CCLLMNS WHERE 
REYNCLCS NUMBERS BRACKET GIVEN REYN 


160 DC 17G J=3,LRCW 

.CCC = TERP(R1,KEYN,R3,A(LVL, J,LCCR-1) , A ( LVL , J , LOCK ) ) 
IF.(CVAL-CCC ) 180,130,170 
170 CCNTINCE 

ie »2 

GC TC 6C0 

180 CC2=TERPIRl,REYN,K3, A(LVL, J-1,L0CR-1 ) , A ( L VL , J-l , LGCR ) ) 
ALFFA = TERP(CC2,CVAL,CCC,A(LVL, J-1, 1) ,A(LVL,J,D) 

GC TC 6C0 


LCCK UP CVAL FOR GIVEN ALPHA. CHECK TC SEE 
IF we FAVE A LIFT CR DRAG TABLE IN AT THIS 
TIME. GkAG TABLES HAVE ZERO VALUES FCR ALL 
MAXIMUM. VALUES (LASl TWO ROWS). 


190 

200 


210 


22C 

230 

240 

25C 

2CC 


270 

2cC 

290 

300 

310 

320 

330 


IF(AtLVLrMAXR,LLCR-l) ) 21C,2CG,21C 
IF(A1 LVL,MAXR,LCGk)) 21C,55C,?1C 

FCR LIFT TABLE. ULMYl AND CLMY2 ARE THE 
.VAXIMUM INTEkPCLATEU VALUES FOR GIVEN 
REYNCLCS i\UMd£RS CF ALPHA MAX AND CVAL MAX 

RP(Rl,REYN,R3,A(LVL,MAXR,LCCR-l) , A( LVL , MAXR , LOCK ) ) 
RP(Rl,REYi\,R3,A CLVL,MAXR-i,LOCR-l ),A(LVL,MAXR-1,LCCR) ) 

-1.) 220,2AC,22C 
-1.) 23C,2AC,23C 

A-A ( LVL, MAXR, LGCR- 1) ) * ( ALPHA-A I L VL , MAXR , LGCR ) ) ) 240,250,250 
,MAXR,LCCR)-A(LVL,MAXK,LGCR-1) ) 270,260,26c 
n 

LVL, MAXR, LCCR-1 ) 
l.Vl,MAXR,.LCCR) 

C 

LVL ,MAXK, LGCR) 

LVL , MAXR, LCCR-1 ) 

-1.) 290,3CC,29C 
-1.) 48C,390,48C 
-CLMYl) 36C,55C,31C 

A-CLMYl )*(ALPFA-ALPF2)) 320,550,550 
i = 3,LRCW 

-A(LVL,J,in 340,340,330 


CCNTINLE 
DUMY1=TE 
DLMY2=TF 
IFIXTRAL 
IF(XTRAL 
CCNTINLE 
1F( (ALPH 
IF (A (.LVL 
GC TC 55 
AL'PF)=A( 
ALPF2=A( 
GC TC PP 
ALPF 1=A( 
ALPF2=A( 
rr-( XTRAL 
IF(XTRAU 
IF( ALHF2 
IF( (AiPF 
DC 330 J 
IF(ALPF2 
•CCNTINLE 
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IE»3 

GC^TC ECO 

CVAL*CUr'Y2J(A(LVL!KAXR-l,LCCK-l)-Cl»/tALPHl-ALPH2|«|ALPHA-OUKYll 

IF( lALPM-rtKYl)*(AtPHA-ALPH) » 36Cf 55Ct550 

DC 37C J»3iLKCK 

IF( Al Phl>Af LVLt Jt 1) > 38Cf380f 370 

CCr^TINtE 

IC-3 

GC TC eco 

CV«L«LU^Y2+ I A ( LVlIk AXR- 1 , LCCR- U-Cl ) / ( ALPI-2-ALPhl I • ( ALPHA-OUPYl I 
GC TC 6C0 

7FtALPh2-CLPYl) A0C»55C#AAC , , , 

IF ( (ALPF A-CtPYl )•( ALPFA-ALPH) ) AlCt 55Ci550 
OC A2C J«3tLRCM 

IFIALFH-A(LVL» J.l) ) A30#43CfA20 

jCCNTIALE 

IE>3 

GC TC fcCO 

CVAL-CCP?2J(A(LVL»PAXR-l,LCCR»-Cl)/(ALPH2-ALPHll*<ALPHA-0UPVil 

IF.(lALPFA-CCKYl)#(ALPFA-ALPh2» ) ASCtSSCtSSO 
CC AfcC J»3fLRCh . . 

IF( ALPF2-AlLVLf Jf 1> » A7CtA7CfA60 

CCNTINCt 

IE«3 

GC^TC fcCO 

CVAL«CtFY2* ( A<LVLfP»*XR-l tLCCR »-Cl )/( ALPH2-ALPHl)»tALPHA-0UPVl> 

GC TC 6CD 

IF(ALPFA-CUPYn A90«^90fS2C 
CC 6CC J*3tLRCi; . _ 

IF( ALPFl>A(.LVJ.t Ji I) ) 310f SlCtSCO 

CCNTINCE 

IE-3 

GC TC 6C0 

Cl-AILVL, J.LCCR-iU 
C3*AaVL,Jf LCCR) ... 

Cl-TERP(Rl.REYNfR3fClfC3) . . . 

CVAL-TFRP(ALPFltALPhAiCtKYltCltOUPY2) 

GC TC cCO 
CC 53C J-3iLRCM 

IF(ALPF2-A(LVLtJtl) ) SAC t SAC 1 530 

CCNTIKCE 

IE«3 

GC TC 6C0 

Cl®A(LVLt JtLCCP.-l) 

C3«M.LVLi J.LCCR) .. . . 

C3»TEKP(Rl,RFYN,R3,ClfC3) , „ 

CVAL-YFWP (CtPYl»ALPhAiALPh2f CtKY2fC3) 

GC TC 6C0 
OC SAC J»3fLRCVi 

SEARCh FUR ALPHA 

IF(ALPFA-A(LVLt J*l) ) 57CtS7CtS60 

CCKTINtE 

IE-3 

GC T C fc C 0 

CCC-T6KP(Rl.R6YN»R3,A(LVL,J-liLDCR-l) jACLVU J- ltLCCR» ) 
CC2-TeRP(Rl»REYN,R3tA(LVL« JfLCCR'l) lAiUVLf JtLOCR) I 
CVAL-TFRPU(LVLt J-lt 1 ) tALHFAf A(LVLf Jf I) tCcCtCC2) 

GC TC 6CC 

XPAX*TCRPIRltREYN«R3tA(LVLfPAXR*LCCK-!l)«AILVL«PAXRtL0CR)) 

XPAXaTERPt^llREYNiR3»A(LVLfPAXi<-l»LCCR-l ) tA ILVL f PAXR-1 * LCCR ) ) 

GC TC (60C>£2C)» IS 

RETLRN 

CCATIMJE 

IE-1 

GC TC AGO 
REYN-999. 

GC TC 6C0 
EKC 

SUbRCUTINE FCISK(ITNC.TLCSS) 


I 



c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

200C 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SLCROLTINE TC STORE TAbCLATEC PRCPELLER 
TIP Less CURRECTICN DATA CN DISK 


REAL TLCSS(fi) 

KEACUIMTNC) TLOSS 

RtTLRK 

ENC 

5UBRCUTINE GCISKMTNC,TALFA,TLIFT) 


SLbRCLiTirsit TC STCRE TABULATED PROPELLER 
AIRFCIL SbCTlON DATA ON DISK - 
ALPHA AND CL VALUES ONLY 


REAL TALFA(20),TLIFT(2C) 
RCACU2MTNC) TALFA 
REACU3* ITND TLIFT 
RETURN 
END 

SCBRCLTINE SLIP 


SLBRCUTINE TO CALCULATE PRCPELLER 
SLIPSTRLAP. VcLCCITY DISTRIBUTION USING 
NUN - LINEAR BLADE AIRFOIL SECTION 
LIFT CFAKACTtKISTIUS 


DIPENSICN NS( 19) ,YLM 19 ) , R Sbr. ( 19 ) » RSBA ( 1 9 ) , VST ( 19 ) , 

IRSBR M2) vLSABR( 12),USTBR ( 1 2 ) , BD AT A (12 t 5 ) tNDATAI 1 2 ) , T I TLE (• 19 ) # 
2IFEACMSOt2 ) t THE ADI 1 . 5 ) t TAL FA ( 20 , TL I F T ( 2C ) ,TLUSS(8) ♦ 

3AFSEK(9,2) t AK(5,2) ,NG(9) , I T A (.9 , 2 ) t 1 TN ( 9 , 2 :> ) , I TC ( 4 , 2 ) , I TM 2 ) , FR ( 2 1 , 
ATC.LI (A) tTTCC(A) ,TXCL(A) , C LG ( A ) » CLP ( 2 ) » CLC ( 2 ) »NRCU2) tRUI (.2) t 
5IFECC(2)rTFECC(5) 

•CCPPCN KCR,KIR,KIL,KCL,VSA( 19) ,SW( 19) ,VSEAR,EYETL,CTSf XPbfYPb, JP, 
lIPRAEf ALPFB 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


»««««««««««»»*« INITIALIZE DATA ARRAYS 
AK/1C*C.C/ 

NG/9*0/ 

ITA/18*C/ 

AFSER/1B«AF / 

AFStR( lti)tAFSER(l,2)/AF USfAFNPS / 
AFSFR(2tl ) TAFSER(2t2)/AF CLA,AHRK.Y/ 
AFSFROf 1) fAFSbk(3t2)/AF NAC,AFA 16/ 
AFSER(Atl),AFSFK(A,2)/AF NACtAHA 
AFSER(5»1) tAFStR(5t2)/AF NACtAHA 


64/ 

65/ 

RH/ 


ARUT-L, ARCTC* ARUTR/3F 'Lf,3F ^ ' »3H 

CHECK VALUE GF IPRAB 


IF MPRAB-l) 
CCNTINLE 


EC 1 
NE 1 

2350,2C0C,235C 


NEV^ CASE, READ CARD INPUT 
NEiv ALPHc Oi\LY, SKIP CARD 


INPUT 


KP = 6 

V p — p 

PI = 3. 1415927 
RTU=57. 29578 

AK( 1,2)=-4C.C 
AK(2,2)=--4C.C 
AK(3,l)=-7*3 
AK (4,1) =-6.9 


SET FIXED CCNSTANTS 

SET AIRFOIL CONSTANTS FOR INITIAL SGLUTICN 
READ, STORE AND INDEX TIP LCSS CORK TABLtS 


CATA CARDS ACCEPTED IN ANY CROEK, 
BUT KUST NUFBER EITHER C OR 63 

NONE RECUIKlD IF TIP LCSS TABLES 
ARE ALREADY STORED CN DISK FILE 

FCLLOhING CARD POST BE BLANK 


J-60 



»• 


REAC(KR,29C1) IBt IPt ( TLCSS UR > t Ik»l t8 » 

If (IE) 211C«212Ct211C 

IA=21«( IH-1 )+lP 

MRITCUIMA) TLCSS 

IC»IC4l 

GC TC 2100 

WBIT£(KPf2Cei) IC 

IF (1C) 213Ct2200t213C ^ 

IF UC-63) 21^C,22CO,21AC 
WRITE(KPf2q(j2) 

....... READ, STORE AND INDEX AIRFOIL TABLES 


TITLE CARDS POST BE READ FIRST - 
NCT REQUIRED FOR STANDARD TABLES 

FCLLOWING CARD POST (5E BLANK 

DATA CARDS FCR EACH AIRFOIL SET 
l-UST BE ASSEPBLcD IN DESCENDING 
ORDER CF - CLI INCREASING 

- T/C INCREASING 

- PACH INCREASING 

NONE RECUIREC FCR SECOND CASE 
FCLLOKING CARO POST BE BLANK 


READ AIRFOIL SERIES TITLE CAROS 

READ (KR, 2911) I,ttFSRl,AFSR2.AKl,AK2 

IF (I) 22C1 .2202.2201 

AFSER( 1 . 1 )=AFSRl 

AFStR( I .2)=AFSR2 

AK( I .1)=AK1 

AK( I .2)=AK2 

GC TC 220C 

CCNTINUE table INDEX AND READ FIRST TABLE 

READ IK R. 2912) IFECD(1).IFECC(2). (TFEDDI I ) .1=1 .5) 

IF ( IFECC( 1 ) ). 220A.22C3.22CA 
WRITE(KP.29e8) NT 
GC TC 2296 


INITIALIZE AIRFOIL SECTION INDEX 


DC 2205 l=i.9 
IfEAC( }tU)-IFEC0(1) 

IFEAC( IT,2) = 1FGC0(2) 

DC 22CB 1-1.5 
TFEAC(1T,I)=TFECC(I) 

IH=lt-EAC(.IT,l) 

READ tK P.2913) (.TALFA(I).TL1FT(I).I»1»IB) 
RRITEdRMT) TALFA 


SET LAST VALUES OF AIRFOIL CODE. 
CL!. T/C. and airful SECTION INDEX 


WRITC(13*.IT) TLIFT 


IA»1FEAC( IT.2) 

TFECl=TFEAC(ir.l) 

TFEC2-TF6AC( IT.2) 

IG»1 

ITM lA, IG) = IT 
ITAUA.1) = IT 

SET TABLE INDEX. READ HEADER FOR NEXT TABLE 

IT»IT+l 

JTEAC(KR,2912) IFE AC ( IT . 1 ) . IFEAD ( 1 T . 2 ) . (TFtAO ( I T. 1 ) . I* 1 , 5 ) 

CFECK FCR LAST AIRFOIL TABLE 
IF UFEAD(IT.2)) 2225. 223C, 2225 

. . CCNTINUE. REAO DATA CARDS FCR NEXT TABLE 

IB»1F£AC( IT.l) 

REACtKR,2913) ITALF A ( 1 ) . TLI FT ( I ) , 1=1, IB) 


161 


2230 


224C 

2250 

226C 

C 

c 

2270 

C 

2280 

C 

229C 


2295 
C 

2296 


C 

C 

C 

C 

C 


C 

C 

c 

2330 

C 

C 

c 

2340 

2341 

2342 

2343 

2344 

2345 
C 

c 

2350 


C 

c 


WRITE(12MT) talfa 
13« IT ) TLIFT 

ir (il-CALMIT,2)-IA) 2230f2250»2230 

KGI IA)*IG 

IG*IG+l 

IT\( lA, IGI»IT 

ITAUA»2)-1T-1 _ ^ 

TF (lFEADnT,2)) 22 lOt 2 240 1 2210 
M=IT-l 

JF(TI-EAC< IT, U-THECl) 2229'^l^r»il«n 
I M THE AC ( IT,2)-ThEC2) 228C,^22C,2280 


ThECl*TI-EAC(IT,l)^^^, 
IFl IHEACI IT,2)-TFEC2) 

TFfcC2=TFEAC( 1T,2) 

IG=IG4l ^ 
ITMIA,IG)«IT 
GC TC 222C 
CCKT IKCE 


RESET last value CF CLI 
CF T/c 

SET AIRFOIL SECTION INDEX 


WRITE(KP,29f3 
WRITE (KP, 298 A ) 
WRIU (KP, 2965 ) 
WRi 1 £(KP, 29 ee) 
WFITtIKP, 2987 ) 


PRINT SUKRARV.OF AIRFOIL TABLES READ IN 
NT 

(AFSER(lll).AFSER(I,2l,I»l,9) 

(NCI I I , 1*1,9) 

( ITMlIl) .ITAU,2),I*1,9) 


READ CASE INPUT DATA CARDS ICENT 1-4 


READ TITLE CARO 


READ tKR ,2921 ) TITLE, ICENT 

IF (ICENT-l) 2897, 233C, 2897 

REAC PRCPELLfcR-^NACELLE GECKETRY CARO 

REAC(KR,2923 ) ^NP,Ne,DPb,RFER,RNiiR,ICENT 
IF (ICENT-2) 2897, 234C ,2897 

REAC PROPELLER CPERATING CCNOITION CARO 

DC 23A5 1=1,2 

IF (NRCKD) 2342,2343,2344 

RCT(I)=ARCTL 

CC TC 2345 

RCT ( I )=ARCTC 

GC TC 2345 

RCT ( I ) = ARCTR 

CCNTINLE 


ALFP=ALPHB+EYETL 
ALFPR=ALFP/PTC 
CA=CCS{ ALFPP ) 
APLT=AJ»CA/F I 
AFCFT=PI*ARCFL/AJ 
DNP=CPD*R.\en 


WRl TF(KP, 295 1 ) 
KsnnKp,r9f2) 
WRITE(KP,’29E3) 
WRITE(KP,2954) 
RRnF(KP,29f6 j 


TITLE 


CALCULATE EASIC CASE PARAMETERS 


PRINT RAIN HEADER TITLES AND INPUT VALUES 


iMP,Nb,RCTm ,P.CT(2) ,XPD,RE6R,AJ 
YPfc,RNtR,ARCEt,LPB,EYETL, ALFP 


IS = C 

RPeRX=REBR 

RSbRX=RNbR 

USbRX=1.0 

OCTX=C.C 

OCCX=C.C 

CT=C.C 

CC=C.C 


IMT IALI2E 
AT FLB AND 


SLIPSTREAM 

NACELLE 


VALUES 


REAC BLADE STATION DATA CARD ICENT 4 
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c 

c 


** 

** 

c 


•« LAST DATA CARO KUbI HAVc RPUR=1.0 

«• 

c 


• • 

«« 

2360 

IS=1S*1 
IF (IPRAB-1) 

2370,2365, 237C 


2365 

REAC(KR,2925) 

tliCATAi IS, I ), 1*1,3) ,NDATA(. IS) , 



1(.BCATA( IS,I ), 

1=A,5) , ICENT 



IF ( lCENT-4 ) 

2897,237C,28S7 


2370 

RPHR=eCATA( IS 

, I > 



CPBP = tCATA( IS,2 ) 

BFTA = BDATA( IS, 3) 

CLI^btATAUS,^) 

TL.C = bCATA( IS,5) 

NA^NCATAi IS ) 

C CHECK FCA LAST BLADE STATICN DATA CARD 

C 

IF CRPER-l.C) 2ACC, 2360,2380 

C - CALCULATE BCUNCARY VALUES FCR SLIPSTREAM 

2380 MT = C 
F = C.O 

AMACH^AMCHT*SCRT( 1.0+AMUT**2) 

ALFHA^C.O 

CL^C.C 

CC^C.C 

RSBRMS) = SCRT(RS[5RX**2+(.l.C-RPBRX**2)*(0.5+1.0/( 1,0+USBRX) ) ) 
RSTCR^RS!»R( IS) 

U£AER( IS)^1.C 
USTER( IS)=C.C 
PHI S=C.C 

C T = CT+C.5«CCTX*( l.C-KPBRX ) 

CC = CC + C.5«C.CCX*(1.C-RPBRX) 

GC TC 27SC 
2A00 CCMINUE 


C LCCATE AND INDEX AIRFCIL TABLES 

C AND GFC^t^KIC DATA AS KECUIREO 

C TC LCCK UP CL FOR SPECIFIED 

C AIRFCIL SECTION GtLMbTRY 


IT=ITN(NA,1 ) 

IF (IT) 2A1C,2AC5,2A10 
2AC5 WRnE(KP,299A ) NA.RPBR 
IS^lS-l 
GC TC 236C 

2410 THEC1 = THEAC( ITrl) 

DC 2411 1^1,4 

ITG( I,1) = C 

2411 ITG( I,2)=C 
IA=1 

IB*2 
IC=1 
IC = C 
IF = C 
IG = C 

2415 IG=IG+1 

IT=ITN(NA,IG) 

IF (THEAD( IT, n-CLI ). 2A2C , 244C, 2445 
242C IF CTHEAC( IT,1)-THED1 ) 24 2 5 , 2 4 3C , 24 25 
2425 IC^IG 

TrECl = THCAG( IT,1) 

2430 IF (IC-NG(KA)) 2415,2435,2415 
2435 IG=IC 

IT=IT\(\A,IG) 

GC TC 2455 

2440 THEC1 = THEAC( n,l) 

GC TC 2455 

2445 IF (IG-l) 2450,2455,2450 
2450 rC=IG 
IG=IC 

2455 IF (THEAD( IT,2)-TCC ). 24 6C , 24 75 , 2470 
2460 IE=1 

ITGtI'\,l) = IT 

TCLK I A)^TI-EAC(.IT,1) 

TTCC( lA ) = THEACUT,2) 

TXCU I A):=THEACnT,5) 

IG=IG+1 
IT=rITN(NA, IG) 

ITGC1A,2)=IT-1 

IH CIG-NGtNA)) 2465,2465,2485 
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2A65 IF m-£AD( IT,1)-TI-ED1) 2^ti5 1 2 A55 1 2485 
2470 IF (IE) 24«Cf 2475,2480 
2475 ITG ( U, n-IT 

TCLl ( IA) = TFtAC( IT,n 
TTCCMA) = TFEA[;( IT, 2 ) 

TXCU IA)==ThEACUT, 5 ) 

IG^lG +1 
IT-ITMNA, IG) 

ITG tIA, 2 )=IT-l 
GC TC 2485 
2480 ITGUR, 1 ) = IT 

TTCCUB)=TFEACUT, 2 ) 

TXCLUe )=THEACUT, 5 ) 

IG=IG+1 
IT=ITK(NA, IG) 

ITG( ie. 2 )=IT-l 

2485 IF (IC) 24 ^ 0 , 2495,2490 
2490 IG=IC 

IT=ITN(NA,IG) 

TFEC 1 =jTFEAC( IT, 1 ) 

IA^2 
IB=*4 
IC = C 
IE*C 

GC TC 2455 
2495 CCMlMijE 


C CALCULATE INITIAL VALUES CF PHIR AND CX FOR 

C BASIC iteration RCUTINE 

c 


SCL = I\B»CPBK / (2.C*PI*RPBR ) 

A/'L'=A^LT/RPcn 
PhICrt = ATAN( AM) 

PFiC=PFinR»RlC 

A^ACF=^A^Ci-T^»wPBR/CCS(PFICR) 

AC=G* 1 /SCRT ( 1 .C-A^ACF** 2 ) 

ALPFC = CL1-»AK(\A, 1 )+TCC*AK(NA,2) 

X=-C.5*N8«(l.C-KPtiK ) »SCRT( I . C+ ( 1 . 0/AMUT ) **2 ) 

Y^EXP(X) 

FP=(2.C/PI)*ATAN((SCRT(1.C-Y**2))/Y) 

X=SCL*AC*RTC*SCRn l.C+AVL»*2)/(4*C*FP) 

Y=( EtTA-Pr IC-ALPFO/RTC 

UXCZR = C.5*( SCRT ( ( APU + X ) **2+4.C«X*Y)-(.APU + X) ) 

PMR = PF ICk+LXCZR 
PFI^PFIR*RIC 

X=LXCZR*5 IN (PFIR )/CCS(PHIR) 

CX^X/( 1*0-X ) 

NIT = 1 

25C0 CLKTINUE 

C BASIC ITERATION RCUTINE 

CP=CCS(PHIR ) 

SP^SIN(PHIR) 

C LCCK UP TIP LOSS CCKRECTICN FACTOR 

C 

X=-C.5«NB«( l.C-RPBR)*SCRT( l.C+( I . C/ ( (.RPB R *SP /CP ) **2 ) ) ) 

Y=EXP(X) 

FP= (2.C/PI)*ATAN{ (SCRT( l.C-Y**2) )/Y) 

C 

C CHECK IF Nb GT 4 - SET FCFP = 1.0 

C 

IF IND--4) 252C, 2520,2510 
2510 FCfF=l.C 

GC rc 256C 
2520 ie=NG-l 

C CHECK IF RPBR LT 0.3 • ASSLME RPBR == 0.3 

AR==lC.C*RPeR 
IR-AR 

IF (IR-3) 2530,2540,2540 
2530 IR=3 

AR^3.C 

C CCNTINU6 - CCKPUTE I NTEKPCLAT I ON FRACflONS 

C AND ARRAY INDICES FOR TIP LOSS CORRECTION 

C VALLES TO bE INTERPOLATED 

2540 DR^AR-IR 
IC^IR-2 
IC=IC4l 
AP^2C.C«SP 
IP*AP 
DP=AP-IP 

C INTERPOLATE FOR RPBR AT EACH SIN(PHI) 

DC 2550 1^1,2 
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IP=IP4l 

I-.A*21*( IR-1 ) + IP 
CALL FriSK( lAtTLCSS) 

2550 FR( I )-TLCSS ( lL) + ( T LCSS ( I C )-T LCSS UC H 
C 

C IMERPCLATE FOR SIN(PHI) 

C 

FCFP=FR( 1) + (FR(.2)-FR( 1) )«CP 
2560 F=FF*FCFP 

ALPhA=OETA-PhI 

AKACF^AFChT*RPBR/( ( l.C+CX)*CP) 


C 

C * LCCK tP GL FCR EACH AIKFCIL TABLE 

C AS RECLIREDf THEN INTERPOLATE CL 

C FCR ALPHA AND APACH 


DC 2695 IA=1,A 
TT»ITG( lAtl ) 

If UT) 26C5,2695,26C5 
2605 ALPHL=pLPFA 
nP(2) = C 
I-n = C 

2610 IF tTHEADC IT,3)-APACH) 26 15 , 262C t 2625 
2615 ie=i 

ITP ( 1)=IT 
TPCH1=THEAC( IT, 3) 

IT=I f + 1 

IF UT-ITG( IA,2) ) 261C,261C,26A0 
2620 13=1 

ITP tl) = IT 
TRCF1=TFFAC( IT, 3) 

GC TC 26A5 

2625 IF (IB) 2635,2630,2635 
2630 IB=1 

ITP( 1) = IT 
TPCF1=THEAC( IT, 3) 

GC TC 26AC 
2635 ie=2 

ITV(2)=IT 
T^CF2=TFEAC ( IT,3) 

GC TC 26A5 
264C IT=ITP(1) 

ALPFC = TFEAC( I T , A ) + ( ALPF A- TFE AC ( I T , A ) ) * SCJ RT ( ( 1 . 0-THEAD ( I T , 3 ) **2 ) / 
1( 1.C-A^ ACF««2 ) ) 

26A5 DC 26SC IC=1,2 
IT=ITF( IC) 

IF (IT) 2c5C, 2690, 2650 
2650 fC=l 
1E = C 

•CALL Ci:isr ( IT, rALFA,TLIFT) 

2655 IF (TALFA( 1C)-ALPFC) 266 C , 266 5 , 267C 
26cC IE=1 

TALF1=TALFA ( IC) 

TLFT1 = TLIFT( IC) 

IC=IC+1 

IF (lC-IhEAC(ITtl)) 2655,2655,2685 
2665 IE=1 

TALF1 = TALFA ( IC) 

TLFl 1 = TLIFT( IC) 

GC TC 26P5 

267C IF (IC) 268C, 2675,2680 
2675 IE=1 

FALF1 = TALFA( IC) 

TLFT1 = TLIFT( IC) 

GC TC 2685 
268C IE=2 

TmLF2 = TALFA ( IC) 

TLFT2 = TLIFT ( ID 

2685 GC TC (2686,2687) , IE 

C EXTHAPCLATE FOR ALPHA 

2686 CLP ( IC) = TLFT1 
GC TC 2690 

C INTERPOLATE FOR ALPHA 

2687 CLP ( rC) = TlFTl+(,TLFT2-TLFTl)*(ALPHC-TALFl)/(TALF2-TALFl) 

2690 CCNTINLE 

GC TC (2691, 2692), 16 
C 

C EXTRAPCLATE FOR APACh 

2691 CLGtIA)=CJ.P(l) 
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GC TC 2695 


IM6RPCLATE FCK ANACH 


2692 tLG ( 1 A ) =C1P ( 1 ) + ( CLP ( 2 )-CLV ( 1 ) ) * ( APACH-TMChl ) / ITPCH2-TKCH 1 1 
2695 CCMJtMjE 

C IMERPCLATE CL FOR TCC AND CLF 

DC 272C IC^1,2 
IA=2*IC-1 
IB=2«IC 
CLC (10=0 

If UTG(IAtU) 27C5,272C,2705 
27C5 IF (.ITGdti,!)) 27 IC , 27 1 5 t 27 10 
C 

C IMERPCLATE FOR TCC 

C 

27 1C CL:C( IC)=CLG( IA) + (CLG(I8)-CLG( lA) )* 

1(.TCC-TTCC( I A ) )/(TTCC( 1 13 ) -T TCC ( I A ) ) 

TXCL(IC) = TXCL( IA) + ( TXCL( I E ) -T XCL U A ) ) * 
ldCC-TTCC( lA) )/(TTCC(li3)-TTCC(IA)) 

TCLI ( 1C ) = TCLI ( lA) 

GC rc 2720 

C EXTRAPOLATE FOR TOC 

2715 CLC(IC)=CLG(IA) 

TCLK IC) = TCLI(IA) 

TXCL( IC)=1XCL( lA) 

2720 -CCNTINLE 

IF (C1C(2)) 2725,2730,2725 
C 

C IKTERPCLATE FOR CLI 

C 

2725 CL = CLC( 1) -K.CLC (.2 ) -C LC ( I ) ) * ( CL I -TCL I ( 1 ) ) / ( TCLI (2)-TCLl ( 1) ) 

GC TC 2735 

C EXTRAPCLATE FOK CLI OUTSIDE TABLE LIPIT 

C 

2730 CL=CLC( 1 ) +TXCL 1 1 ) * ( CL 1-TCL I ( 1) ) /SORT ( 1 . 0- AM ACH^^*2 ) 

2735 CCNTINUE 

C SET BLADE SECTION DRAG CD = C.OIG 

CC=C.C1 
X=SCL/( A.C»F) 

CX=x*(CL/CP+CC/SP) 

CY^X«(CL/SP-CC/CP) 

CZ=AMU*( l.C+CX)+CY 
PMN = A| A'\i(C2)«RTC 

IF (APS(r‘FI.x-rhI)-C. 1) 27A5,27A5,27A0 
27A0 X=AMl*CX* ( AC*RTC/CL-SP/CP ) 

Y=CY*( AORTC/CL + CP/SP) 

CC=1.C+(X+Y )/( 1.0+CZ**2) 

PFI=PFI+(PFI\-PF1 )/CC 

PFlR=PhI/RTD 

MT = MT41 

IF (MT-9) 25CC,25CC,27A5 

C CALCULATE VALUES FOR DISK PLANE ELEMENT 

C 

27A5 UCZR=C.5*(SCRTCAPU**2+A.C«F*CY*CZ/( 1.0+CX)**2)-APU) 

UCLA=LCZR/APL 

wC2Z=LCZR«CX/CY 

C CALCULATE VALUES FCR SLIPSTREAM ELEPENT 

C 

USAERl IS)=l.C+2,C*UrUA 

RSPRIIS)=SCRT( RSbRX**2+fRPeR*«2-RPBRX**2 )* 
l(.C.5+l.C/(USAeK( IS)+USERX)) ) 

USTHKl IS)=2.C*WC2 Z*kPER/(.RSBK( IS)*APU) 

PFIS = RTn*ATAN(USTBR( I S ) /LSABR ( I S ) ) 

DCT=(PI *RPBR ) **3*F*CY*CZ/( i.C+CX)**2 
0CC=CCT«(RPeR/2.C )*CX/CY 
C 

C PRINT BLADE ELEPENT SOLUTION 

C 

2750 WRITE(KP, 29 57 ) RPBR , CPBR , E ET A , AFSER ( NA , 1 ) ,AFSER(NA,2) , CL I , TCC, 
1F,APACF ,ALPFA,CL,.CC,RSaR CIS) ,tSAbk( IS) ,UbltiKUS) ,PHIS 
IF (RPER-l.C) 2755,281C,281C 
2755 IF (MT-9) 2 ECC , 2ECC , 276C 
2760 V^RITE(KP,2995) 

IS=IS-^1 
GC TC 2360 
28C0 CCNTINLE 

C SUP INTEGRAL TERMS FUR SLIPSTREAP ELEMENT 

-CT“CT^C.5*(.CCT + LCTX )*(RPBR-RPfcRX) 
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CCsCC4C.5«(CCC4CCCX)«(RPeR-RPBRX) 


8 


281C 

C 

c 


c 

i 

C 

C 

2811 

2812 

2813 


2815 

2816 
2817 


2820 

2825 


2830 


2835 

284)0 


2845 


2850 


2855 


28A0 

2861 

2862 

C 


2865 


RPBRX*RP8« 
RSeRX«RS8R| IS) 
USBKX»LSAeR( IS) 
0CTX*CCT 
DCCX«CCC 


GC TC 2360 


CCMINfE 


RESET LAST VALU&ST OF INTEGRAL TERRS 


CALCULATE FINAL SLIPS'TREAR INTEGRALS 


VS8AR»CA*SCR1 ( 1.0+fc.0*CT/lPI*<Pl4APUT )**2)) 
CTS»l.C/H.C+(PI*(PI*AKUT )**2)/(fc.0*CT) ) 


PRINT FINAL SLIPSTREAM INTEGRALS 

WRITE(KP,2S58) CTS,CT,CG,VSBAR 


CALCULATE SLIPSTREAM VALUES FOR 
IiNPLT TU hlNG ANALYSIS 


IF INRCT(D) 2812f281l,2812 
NR»-I 

GC TC 2813 

NR*-l+IABS(NRCT(2)-NR0Ttl)) 

KCR»C 

NKa?*JP 

CC 286C Kal,JP . 

YBMK )»CCS{K*PI/N8) 

RSfiK«.K) = < VBMK)-YPe)/CPB 
RSBA(R)*AGS(RS8w(Kn 
IF tRSfiA(K)-RST2R) 28l5,2850t2850 
NS(K)«1 

IF (KCR) 2817,2816,2817 

KCP=K 

KIRsK 

ISIGN»-NRCT(2)*RS6N(K)/RSBAIK) 

IA*C 

1B»1 

IF (RSBRI 18 )>RSBA(K) ) 2825,2830,2835 

IA» IB 

Ifi»lfc4l 

GC TC 282C 

VSA(X)^CA»USAeR<IB) 

VST (K)»CA«LSTeR(lB)*ISIGN 
Sh(K )sVST(K )/,VSA(K) 

GC TC 2855 

IF (IA> 2845,2840,2845 
VSA(K)»CA«tSABR( 18) 

VST (K )*CA«USThS( Id)*ISIGN*RSBA(K)/RS6R( IB) 
Sa(K)*VST(K)/VSA(K) 

GC Ti: 2855 

X»(RSCA(K)-RS8R(IA))/(RSGR( IS)-kStR( lA) ) 
VSA(K)=CA«(LSAeR(lA) + (LSAeR(ie)-USAtiKMA))*X) 

VST (K )=CA«CLSTBR< lA) + (USTBS( IB)-UST8RHA ) )*X )*ISIGN 
SK«K)=VST(K)/VSA(K) 

GC TC 2855 

NS(K)-C 

VSA(K)»1.0 

VSTIK )*C*C 

SMK)*C.O 

L*NN-K 

NS(L)*NS(K) 

YBN(L)*Y6R(K)«(-1.0) 

RS8A(.L)*RSaA(K) 

VSA (L)*VSA(K) 

VSTtL)*VST(K)*NR 
SV»(L)=VST(L )/VSA(L) 

CCNTINLE 

IF IKIR-JP) 2862,2861,2862 

KI.R»N*-KCR 

KU«NU-hIR 

KCL*NK-KGR 


WRifECKP,296i) 

lC»Nh-l 


PRINT SLIPSTREAM VALUES AT KING STATIONS 


DC 287C K«1,IC 
IF (NSIK)) 2870,2870,2865 

VlRITE(KP, 2962) K , YBN (K ) ,RSBA ( K ) , VSA (K ) , VST ( K ) , SN (K ) 
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28 7C 

2897 

2699 

C 

C 

C 

2901 

2911 

2912 
29U 
2921 
2923 
292A 
2925 
C 

c 

c 

2951 

2952 


2953 


295<i 


2956 


2957 

2958 


2961 

2962 
2931 

2982 

2983 
298A 
2985 
2966 

2987 

2988 

2991 

2994 


2995 


€CNTINLE 

WRITE(KP.2991) lOENT 
CC^JI^LL 


HEAD FGRKATS 


FCRKAK ll,I2,29X,eF6.C) 

FCRFAT( Il,9Xi2AA,2X,2FlC.C) 

FCRFATC 12,2X, Ilt3X,5F8.0) 

FCKf'AT ( 10F8 .C » 

FCRFAK 19A4 ,3X, lU 
FCRV^ ri I2,ex, I2,8X,3FlC.Ct29X»Il) 
FCRFAT(2( I2,8X),2F10.C»3SX,I1) 
FCftF'ATOFlC.Ct Ht9X,2f IC.Of 19X,I1) 

PRi;\T FCRWATS 


A 

e 

A 

e 

c 

£ 

E 

I 

A 

B 

£ 

£ 

E 


FCRFATl 1H1///6X,32FPRCPELLER SLIPSTREaP ANALYSIS - ,2X , 19A4/1X ) 
FCRFAr( lH3,7X,25l-PRUPtLLER - ^ING GcQ^ ETRY, 14X, 

ErHPRCPELLER - \ACELLH GEOf- ETRY, 12X, 

29FPRCPELLER CPERAllNG CONi; 1 T I CN/ IX ) 


FCRPATHh ,4X,25HNLF'flER CF PSCPS 

25HNC CF ELACES PER PROP 
25PLEFT / RIGHT PROP RD7N 
5X,25FPk(jP FuC CCCRC 2.XP/b 
25FFbb CIA / PROP DIA 

rsHPRLP advance ratio 

FCRKATdH ,4X,25FPRGP SPAN' CCCRC 2.YP/B 
25FNACELL6 CIA / PROP OIA 
25FFLIGFr PACE NLPBER 
5X,25EPRUP CIA / aING SPAN 


=t I2.13X, 

=t 12.13X, 

= * a3 » IF » » A3/ 

— tr/ «4tEXt 

=,F7.A,eXt 

=,F7.4) 

=,F7.4,faX, 

= fF 7.4.6X, 
=,F7.4/ 
=»F7.4,8X, 


25FPRUP AXIS REL KOCY AXIS =»F7.3,4H CEGtAXt 
5c;»-uBrc) Aivr:i c i p aTrAr*< =tF7.3»AH CEG) 


25FPRCP ANGLE CF ATTACK 
FCRFATI IF-, 12X,22FELACE ELEPEM GLCh E TR Y , 22 X , 

A22FEL\Ce r.LEPFNT SLLLIT I ON , 14 X , 27F.SL I P STF.E AF ELEPcNT SOLUTION// 
e2X,5FRe/RP,3X,5FCE/.<P,3X,5FPITCF,2X, 7FA/F SER, 

C3X , 3FCL 1 ,4X ,3M /C ,9X , IFF , 5x , 4 F N ACF , 2 X , 5U A LPF A , 4 X , 2FCL , 

£5X,2FCC,HX, 5FRS/RP,2X,tFLSA/CA,2X,6FUST/LA,4X,4FPHIS/lX) 

FCRFATIIH »F6.4,F6.4,FB.3,1X,2A4,2F7.3,4X,dF 7.3,4X,3F8.4,F8.3» 
FCRPATIIH-, 4X,36FPRCPELLER TFkuST CCc F F I C I Ei\ T , €!'• *,F7.4/ 

A 5X,3cFPRCPELL£R IFRLST CCEFrlCIENT, CT =,F7.4/ 

£ 5X,36FPRCPELL6R TCrCLE COEFFICIENT, CC =,F7.4/ 

C EX, 3bFPCPEi\TLP xGfC SLIPSTkEAN vEL RATIO =,F-7.4) 

FCRFATI lH-,4X,42HSLIPSTRtAN VALUES AT WING CCNTRCL STAT1CNS//6X, 
AlFK,7X,4F2Y/B,7X,5FRS/RP,7X,fcFUSA/LC,6X, fcFUST/UQ,5X,7HUST/USA/lX) 
FCRPATIIH ,4X,I2,5(i>X,F7.4) ) 

FCRPATI IHl, 9X, I3,42F TIP LCSS CORRECTION TABLE DATA CaRCS READ/IX) 
FCRFATHH ,13X,44F1S INVALID - SLIPSTREAM CCFPUTATICNS AbCRTED/IX) 
FCRMAK 1H-,9X, I3,41F PRCPFLLER AIRFCIL TALLES kEAU AS FULLUWS/IX) 
FCRFATI IFC, 14FAIRFCIL CCCES , 9 < SX , I 3 , 3X ) ) 

FCRPATI IFC, 14FA1RFCIL SERIES, 9<3X, 2 A4)I 
FCRPAT ( IHC, 14FNC CF S EC T ICNS , 9 ( SX , I 3 , 3X ) ) 
fCRFATI IhC, 14FTAHL£ NLMEERS ,9(3X,I3,2H -,I3)> 

FCPMAU IF-, 11X,32FC PkCPELLER aIRFCIL TABLES REAC,,I3,47f PREVILUS 
A tables read and STCREC are as FCLLCfS) 

FCRFAT(1H-,1CX, lOI-CARC ICEM , 12, 

A62F FAS BEEN READ CUT CF SEQUENCE, SLIPSTkEAF. CCFPUTATIDN ACCRTED) 
FCRFATI 1H-,44FA1RFC1L TABLES NCT STCRED FCK AIRFCIL SERIES, 12, 

A21F SPECIFiec AT RE/RP =,F7.4, 

£46F - TFIS ELEFCST IS CELETEC FRCP TFE ANALYSIS/lX) 

FCRFATT IHC, 109FSCLUT ION FCR PkECEGING ELEFEkT FAILED TO CONVERGE I 
AN 9 ITERATICNS AVC IS CELETEC FRUF THE SLIPSTREAM ANALYSIS/IX) 
RETLRN 
ENC 

SUBRCbTINE MAIN 

DIMENSICN C{19),FPS( 19) , TRANS ( 19) ,kEY( 19) ,E T A ( 19 ) ,FCPP ( 1 9 ) ,CLM!AX( 1 
19) ,ZFERET ?,b ) ,‘.iEERE( 2,6 ) ,ARRAY( S,25,8 ) , Y ( 1 9 ) , T AL (19 ) , BL T A ( 19 , 1 9 ) , 
2M.AZZ (6) ,MZCCL (6 ) ,MAXX( 6 ) ,MXCLL( C) , YFEkE ( 2,b ) ,MYCCL ( 6 ) , M.A Y Y ( 6 ) , TR I X 
3(.19,19 ),Cv(19),CIST(19) , YCA( 1 9 ) , YUAX (• 19 ) ,YX(19),TCNYL19),ALPG(19), 
4XFEPE(2,6),MwCCL(6),MAWa(6) 

DIMCNSICN CVAL( 19) , ALPFL tl9) ,CBC(.19 ) ,CBG( 19 ) , CELT A ( 19 ) , aLPHZ { 19 ) , 
1ALPF(19),ALPFE(19),CLACD(19),CLCEL{19),CLAD2(19),CLA01(19),F(19) 
CCMMCN KCR.K IH,KIL,KCL, VSA( 19) ,SW ( 19 ) , VS B AR , t YE T L , C TS , X P6 , YPB , JP , 
IIPRAB.ALPFB ,KS1 AL, lST.iL,KCL\T,AB( 3) 

CCMMLN NSLIP,VR( 19) ,CA( 19) ,AS( IV), TL (.19) ,SV( 19) , FC\C, YG ,CONAC , 
lALPFV(lE) 

CCMMCN INNCR, ISrITI 3) ,ALPFA,KEY.\,CLL,KEYCN,XMAX,ALPAXn9) ,CLMAX,C, 
lEPS, TRANS,REY,£TA,FCPP, ZFERE,WFEKE , array , Y,BETA,TFAC, TRIX , TAU,MAXX 
2,MAZZ,MXCLL fMZCCL,ASPEC,TAPtR,UF,KEYNl),CISCR,PIcK,CRo,0, rSTAXfhCGE 
3,SIG,ALPHR,NFLAP,NLVL,NP, lY, IZ, IR,IP, IS, ISTAR,A,B,F,TAUT,TAUR, 
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^TmST,R,euX .YhC^Elf f'YCCL t^AYY,FLAP,TCNYtTWIS4tX,Z,Cf'tACC|XHeRel 
5PWCCL,VAkWf CAhb ( 19) , C , C A^E T , DtP Y 1 , Dl;^ Y2 , lYAKt ( 25 ) , AHbKE ( 2 1 6 ) t 
6PAAA (e ) ,PACCL (6 ) ,Bt-EKE ( 2 »6) ,KABE( 6 ) .KdCOL (6) tCHhKEl 2,6) ,)<ACCJ6) , 
7PCCLL(6) ,CI-ERt(2,6) ,f'A(;C(e) ,M;CtJL ( 6 ) , STUfvYC 19 ) , SGENE ( 19 ) ,CVAL, 
eALPI-E,CBC,CKG,CeLlA, ALPhZ,ALP)-,ALP)-t,CLACD,CL0EL,CLA02,CLADl, 
5F,IRI,PF,Lf;CEK 
ACCS(X)=ATA\(SCRT( 1,-X#X)/X) 

REACEK (IR) AND PRINTER (IP) LOGICAL UNIT 
NLPBERS 

IR*8 

IP»6 

REWINC 1 
RcVsINC 2 
REWINC 3 
REWINC A 
.RE h INC 5 
RE'mINC 10 
REX INC 15 
RcXINC 20 
REWINC 7 
KEEP*! 

INPLT DATA SECTION 

IS*1 

REAC ( IR ,65C ) A SPEC , T ALT , 7 ALR , T APER , TW I ST , k, Bf- , RE YNC , 0 I SCR , A , B ,H , 
l.ALPI-R.NFLAP , FLAP, X,Z , This A, CAPUT, CAFBR.NSL IP, CONAC 
IF(ASP6C-99. ) 2C,1C,1C 
1C CALL EXIT 
20 CCNTINLE 

LAYOUT CF FCURTH DATA CARO 

FIELD 1 II NLPBER CF TAL VALUES PER TABLE 

FIELD 2111 FOR READ IN CF TAL, REY,ETC. 
0 FOR KL REAC IN 

FIELD 3 II 1 FCR OLPP CF CCWPUTcO ARRAYS 
0 for nc dorp 

FIELD A II 1 FOR DUMP CF BETA ARRAY 
C FOR NO DUMP 

FIELD 5111 REAC CUBE 1 FROM TAPE, LOAD 
TO CISK. CCPY CUBE 1 TC CUBE 
2 CN DISK, 

2 REAC CUBE 1 FRCM' TAPE, LOAD 
TO DISK, kEAD cube 2 FROM 
TAPE, LOAD TO CISK. 

3 REAC CUBE 1 FRCM CARDS, LOAD 
TO 1ARL-, LlAC to DISK, CCPY 
CUBE 1 TO CUBE 2 ON OISK 

A RcAC CUBE 1 From CARDS, LCAO 
TO TAPE, LCAC TO CISK, KEAD 
cute. 2 FRCF CAROS, LCAO TC 
TAPE, LCAD TC OISK 

FIELD 6 25a2 FIFTY CGLLMNS OF ICENTIFING 

INFLRMATICiv. ThIS IS PRINTLO 
AT THE TOP CF EACH PAGE CF 
CUIFUT 

READ (IR,66C) NLVL , I SV. I T , IG , NAME 

SRITCF ZERC CN RILL READ IN VALUES FRCM 
CABCS FCR TAL, REV, C, EPS, EDGE, CRb, AND 
ACC. FORMAT IS L6F5.C. ARRAYS ARE READ IN 
RCKaISE 

CALL SETSW 
DC 3C J*l,6 
WFERC( 1, J)=C. 

WFEPE(2, J)aC. 

MAXX( J)sO 
30 MACCL(J)*C 
IY«C 

TF(IG-3) 60, AC, AO 
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AO DC 5C J=l.A 

C/»IL AEKDA( ARRAY, NLVLfWHEREfKACCLfyAViW,7»K€EPl 
WRITF(7) ARRAY 

50 KRnt(7) WHERE, ^ACCL,FA^k^^ 
lE(iG-A) eo,6C,eo 
60 DC 7C J=1,A 

CALL AERO A ( ARRAY, NLVL,V«HERE,FACCL,f'Akk,7, KEEP) 
WRITE(7) ARRAY 

70 wHITE(7» WHERE, RACCL,PAhk 
80 IK=1 

RE’rtINC 7 

READ (.7) ARRAY 

REACC7) WHERE, f'XCCL,KAXX 

WRITE(7) ARRAY 

IK=IK+l 

RtAC<7» array 

REAC(7) 2HERE,yZCCL,A'AZZ 

WRITE«7) ARRAY 

IK=IK+1 

REAC(-7) ARRAY 

RcAC(7) YHERE,VYCCL,^AYY 

WRITE(7) ARRAY 

IK=1K+1 

REAC(-7) ARRAY 

REACI7) XHlPC-,RWCCL ,RAWW 

WPnK7) ARRAY 

RtWlNC 1 

REWIND 2 

REWIND 3 

REWIND A 

lE(lG-l) ICC, IOC, 90 
90 IFtlG- 3) 130, ICC, 130 
100 IK=1 

DC lie J=1,A 
REAC(.7) ARRAY 
KK=1K«5 
IK=IK+1 

no WRITE(KK) ARRAY 
DC 12C J=l,6 
AHEREI l,J)=WHEREtl,J) 

AHERE(2,J)=WHERE(2,J) 

8HERE ( 1 , JI=ZHER£( I, J) 

BHERE(2,J)=ZHERE(2,J) 

CHERE(1,J)-YHE«E(1,J) 

CHERE(2,J)=YHERE(2,J) 

0HERE(1,J)=XHERE(1,J) 

DHERE(2,J»=XHFR£(2,J) 

RACCU J)=KXCCL( J) 

KeCCL(J)=RZCCL(.JI 

ycccLi j)*yYCCL( j» 

RCCCL(J)=RWCCL( J) 

RAAA( J)=RAXX(J) 

RAEE(,J)=E'AZZ( J) 

‘^ACC U)=7'AYY ( J) 

12C MACC( J>=MAWW( J) 

GC TC lAO 
130 IK=5 

REAC(7) ARRAY 
REAC(7) AHERE ,»'ACCL ,yAAA 
WRITh(7) ARRAY 
IK= IK + 5 
READ! 7) ARRAY 
READ(7) bHERE,KBCCL,KABB 
WPITE(7) ARRAY 
IK=IKh5 
REACI7) ARRAY 
REAG(7) CHEPE,PCCCL,PACC 
WRITH.(7) ARRAY 
IK=lK+5 
REAC(7) ARRAY 
READ(7) DHER6,RCCCL ,i'ACC 
WRITEin ARRAY 
lAO ALFG(1)=C.C 
REWIND 5 
REWIND 10 
REWIND 15 
REWIND 20 
REWIND 1 
REWIND 2 
REWIND 3 
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REUINC A 

NP*R-U 

JP-R/2. 

PIER«3.1A159/R 
.c;aL CATSwcCfi) 

GC TC (15C,16C), I 
150 REACMR.67C) ( T AU ( I) t I* 1 ,NP ) 

REACMR,67C) ( R t Y ( I ) , I » 1 , NP ) 

RE AC MR, 6 70 ( C ( 1 ) , 1 = 1 , NP ) 

REAC< in,<WO) (EHS( I) ,I = 1,NP) 

RrACMH,67C) tCGE 
RCACMR,67C) CR6 
REACMR,67C) ACC 
160 CCMIKLE 

IF NO FUSE (FUSELAGE) 

1F(A) AI0,A10fl70 
170 YC=E*SCRT ( l.-h«*2/A**2) 

EC.C = SCR1 ( A««2-H**2) 

CALL CATSN(C,I) 

GC TC (19C,1EC), I 

180 CRG = 2.*( l.-YC )/( ASPtC«( l.+TAPER-2.*Y0»TAPER) ) 

190 TFAC=l*-( YC*TAUR*CRti/0.1^159*A*B) )*4. 

JPP=JP+1 

y*Al) tSEE CR16^6 FCR EXPLANATIONS) 

DC 2CC 1=1, JPP 
X 1 1 = I - 1 

200 YCA( 1 )=Y0+( l.-YC>*CGS(XII*PIER) 

CHECK IF FUSE ELLIPTICAL OR CIRCULAR 

IF(A-E) 230,230,210 

ELLIPTICAL FUSE 

210 CONTINUE 

DISTX=C.5*( SCRT( l.+(H-ECC)«*2 )+SQRT( l.+(H+ECC)*»2) ) 

8wX = I./(A-B )*(A-B*CISTX/£CRT(.CISTX*^2-ECC**2) ) 

DC 220 1= 1., JPP 

DISTM )=0.5* (SCRT( YDA( I ) *»2+ (H-ECC ) **2 ) +SCKT ( YOA <1 ) * *2+ ( H+ECC ) *»2 
1) } 

Y BAR PRIME (Ii 

220 YCAX( I) = (YCA( I) / ( A-0 ) * ( A-b • C I ST ( I ) / SQRT ( C I S T (• I ) * *2-ECC * *2 ) ) )/BWX 
GC TC 250 

Y BAR PRIME (I) FCR CIRCULAR FUSE 

>30 BhX=I.-A**2/( l.+H»»2) 

DC 2AC 1 = 1, JPP 

>40 YCAXm=YCA( I )#( l.-A**2/tYCA( I )#*2 + H**2) )/BWX 

CCMMCN TO ELLIPTIC AND CIRCULAR FUSE 

250 DC 260 1=1, JPP 

Y BAR (I) 

AI=I-1 

260 YX(I)=CCS(AI*PIER) 

Y (I) 

DC 270 1=2, JPP 

270 Y( I )=TERP( YCAXM-1) ,YX( I ),YOAX( I ) , YDA M - 1 ) , YDA U )). 

DC 280 I=1#JP 
Y( I )=Y( I+l 5 
280 YX( I )=YXtl + n 
M=JP-1 

DC 29C 1 = 1, M 
IRI=R 
IRI=IRI-I 
YX( IRI)=-YX( n 
290 YtIRI ) = «V( I ) 

IF(A-e) 360,360,300 
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FtSE IS ELLIPTICAL 

3CC DC 31C 1*1, JP 

DlSTtl )*0.5*(SCRT(Y( I )**2+(h-ECC)**2)+SORTC YM )**2 + (H + ECC)**2) ) 
C=CIST( I )/SCRT(CIST( n«*2-ECC«*2) 

S=I. + (ECC*Y( I >/(CISTf IM»2-£CC**2n**2 
TRANS ( I )*!./( A-t)*(A-b*C/S) 

IRI=R 

IR1=IRI-I 

31C TRANSIIRD^TRANSf I) 

KING ON TOP CR BOTTO^* OF FtSELAGE 

IF(A-F) 32C,32U»33C 
320 TRANS(JP)*1* 

330 IF.(NFLAP) 52C,52C»340 
3AC IF(0F-1.) ^5C, 520,520 

35C 0ISF*C.5*(SGRT(BF**2+(F-ECC)**2)+SGRT(bF**2+(H+ECC)**2) ) 
BFX*(EF/| A-E)*( A-B*DISF/SCRT(.C1SF**2-ECC**2) ))/bWX 
GC TC AfcC 
360 CC 370 1*1. JP 

TRANS Cl )*1.4A**2*(Y( I)«*2-F**2)/( tVCI )«*2+H**2)**2) 

IRI=R 

IPI*IRI-I 

37C TRANSC IRI )*TRANS( I) 

IF(A-F) 380,380,391 
)l IFCNFLAP) 520,520,390 
380 TRANSC JP)*l*C 
390 IFCEF-l.) 'iCC, 520,520 
400 6FX*(LF*( l,-A**2/(0F**2‘H-««2) ) )/BkX 
GC TC 460 
410 DC 420 1*1, NP 
A 1*1 

Y( I )*LCS( AI«PIFR) 

IF(AI.FC.JP) YU)=C*C 
Yy(I)*V(I) 

420 TRAN5(1)*1. 

YL*0* 

SPECIAL CASE IF VALUES HAVE BEEN READ IN 
CC NOT UANT TO COMPUTE CRB. 

KILL NOT COFPUTE VALUES ALREADY HEAD IN 

CALL LATSK(C.I) 

GC TC (440,430, I 

430 CRB=2**Cl*-VC)/(ASPEC*ll.+TAPER-2.*YO*TAPER) ) 

44C TFAC*1. 

HKX*!-. 

IF(BF-I.). 450,520,520 
45C BF.X = HF 

460 TSTAX*ACCS(BFX/BWXI 
DC 51C I*i,JP 
AI*I 

C3*AI*PIER 

TSTX*TSTAX 

IMC3-TSTX) 510,470,480 
470 TSTAX=C3 
ISTAR*I 
GC TC 520 
480 AP*C3-TSTAX 

C1*(.AI-U )*PIER 
AK*TSTAX--C1 
IF(A^-AK) 490,490,500 
490 ISTAR*! 

TSTAX*C3 
GC TC 520 
500 ISTAR*I-1 
TSTAX*C1 
GC TC 520 
5IC CCNTINLE 
52C CALL CATSMC,!) 

GC TC (55C,530, I 
530 ECGE=SCRTC l.+4./(ASPEC«*2)) 

EN*1.-G.5/SCRT(£CGE) 

PI*3. 14159 

ECGE*C.5*CI./EN-PI*CCS(PI*ENI/SIN(PI*£Nn 
CALL CATSKC3,n 
GC TC <541,5421,1 
541 WRTTECIPtlCll) 

CALL ZZZCeCGE) 
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5^2 DC 5AC I»1,NP 

C( I ) = l.-T>^PER>*( AP3(Y« I J )-Y0)/( l.-YU) 

TALU)*TALR/C( I l.-TAPFR«TAUT/TAUK)«(AbS(Y(I) l-YOJ/(l.-YC»» 

CAKe< I )=CAPHR+(CAPaT-CAKKR»* (ABS( Y( I ) 1-YC )/ I l.-YC I 
ACC*C.t666*( 1. + TAPER* ( 1. 4 TAPER ) )/(.1.4TAPtRI 
5A0 RPYtl )*KtYKC*CH )/ACC 
55P CALL RAINA 
RETCRR 

lOll PCRRATUfiXtSI-ECGE*) 

650 ECRRATIOPIC.C/SFIO.O, IX0,AF5.C/2FlC.0i IlCf IFIO.C) 

66C f-CRRATISI 1.25A2) 

67C FCRFAT(16F5.C) 

ERC 

SLBPCLTIN'E RAINA 

C •«•<••••«••*•• PAINA-CCNTINt’ATION CF SU3RCUT1NE RAIN ***»*•***••*# 

DIRENSICN C ( I',) ,EPS( IS) f TKANS< 19» ,kEY(. 19) »ETA(l<5» ,FtPP( 19) tCLRAXi 1 
l9),2FER£»2,6),RhEPF(2,e),ARRAY(5,25f« ) , Y U 9 ) , TAL (19 ) » U£1 A ( 19 * 19 ) , 
2HAZZ(.6) ,RZCCL(6),RAXX(6) ,RXCCL(6),YI-ERE(.2t6),MYCr.L(6) tPAYY(6) ,TR1X 
2(1S,1V) ,CR( 19),TCNY( 19) , 

AALPFZ( 19) ,XFERE(2,6) ,V).CCL(6)fRAWV.(6) 

0!R ENSIGN CV A1 ( 19 ) , ALPFt t 19 ) ,CkC ( IS ) ,CBG ( 19 ) ,OELTA( 19) , 
lALPM 19),ALPF6ll9),CLACCti9) ,CLUEL(19) ,CLA02HV) ,CLAD1(19) ,FI19) 
CCRRCN KGR.KIR,KIL,KCLf VSA( 19),Sw( 19) »VSbA«,cYcTL.CTSfXPatYPB,JPt 
lIPRAb.ALPHL'tKSrALt I STAL . KCLM t Ab (3 ) 

CGRRCN NSLIF.VR(19),CA( 19 ) , AS ( 19 ) , TL (19 ) ,SV(19) ,FtNC» YCtCONAC* 
lALPFVC 16) 

CCRRCN INNCN, 1SV>IT(3) ,ALPF4,RfcVM,CLLfREYCN»XRAX,ALRAX(19) tCLRAX,C» 
lEPStTRANS,HEY,cTA,FCPP,Z)-ERb,NFtRE,ARRAY,Y,BErA,TFAC,TRIX,TAt,RAXX 
2.RAZZtFXCCL,R2CCL,ASPEC,TAPtK,fcF,K<fYNU,blSC.<,PltH,CRb,C,TSTAX,ELGE 
3,SIG»ALPhR,NFLAP,NLVL,NP, IV, IZ,IR,IP,IS, I STA k , A , u ,h , T AUT , TAURf 
ATRlST,R,BKX,YFERt,RYCCL,RAYY,FLAP,TCNY,ThISA,X,Z,CR,ACC,XHEREf 
5RhCCL,£ AWh.CA) E(1S) , CAP BR , C AP61 , DbF Y 1 , DUF Y2 , NAPL ( 25 ) , AhtRE ( 2 , 6 ) , 
6RAAA(.6 ) ,VACCL(6) ,BI-ERE( 2,t ) ,RABi! (6) ,K8CUL(6) ,ChcRE( 2»6) ,i»:ACC(6) t 
7RCCCL(0,C»-ERE(2,6) ,yADD(6) , RCCCL (.6 ) , STUN Y( 19 ) , SGcNu H 9 ) ,CVAL, 
eALPFt,COC,CBG,CELTA, ALPFZ,ALPF,ALPHE,CLAC l;,CLDEL,CLA02,CLAC1, 

9F, IRI,FF,LCCER 
IF(IR-8) 20,10,10 
10 IPRAB-1 
KSTAL=C 
1STAL«C 
KCliNT=C 

RFAC(IR,32G) ALPHV 
GC TC 3C 

20 irp.AB*IPRAC4l 
3C ALPFC*ALPFV( IPRAB) 

1F( ALPFG. EC.99. ) GC TC 6A1 
TF(IPRAB.NE.l) GC TO 61 
DC 5A9 K*1,NP 
VSA(K)»1. 

VR(K)*1.0 
SN(K)^C.O 
DA(K)»C.O 
AS(K)=C.O 
TUK )^C.O 
549 SV(K)=C.O 

61 IF.(NSLIP.EC.O) CO TU 552 
CAIL Slip 

1F( IPRAB.NE.l) GO TO 81 
C REAC(IS,320) (CA(K) ,TL(K),K=1,NP) 

SCK=C.78544YPB 
D1PF*C.7854-YPC 
SUR2sSCR**2 
0IFF2=C1PF**2 
RTSCR=SCRT( $tK24XPe**2) 

RTCIF = £CPT(C1FF24XPH««2 ) 

FLNC*CIFF/(XPB*RTCIF )4SLy/(XP6*RTSC'y)-(RTSUR-XPtJ)/( SUM*KTSUR) 

IK AeS(YPB-C.7854)-.Cl) 71,71,72 

71 FUNCl^C.O 
GC TC 73 

72 FtNCl=(RTCIF-XPB)/(DIFF*RTClF) 

73 FCNCsf-CNC-rtNCl 
CALL CATSM3,JUNK) 

GC TC (fcO,ei),JLNK 

8C WRITE! IP, 5491) 

5A91 FCRRAT(10X,4FFUNC) 

CAIL ZZZ(FtNC) 

81 DC 553 J=1,NP 

553 REYU )=REY( J)*SCRT( VSA( J)**24SW( J)**2) 

552 IF( IPRAB.NE.l) 60 TU 641 
LCX£R*3 
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c 

c 

c 


c 

c 

c 

560 


C 

C 

C 


ALPh/^^S99* 

CLL*C. 

REYCMS99. 

X^'AXsO. 

LCCK LP ZERO LIFT ANGLE FOR TIP SECTION 

CALL ERlCGf ALPhZ, I, 1,1, lY, IE,KfcY,TAL,CAMEtALPHArlf IfALPHA) 

IF.( IE) 56C,56C,6AC 

LCCK LP ZERC LIFT ANGLE FCR RCOT SECTION 

ALFFA^999. 

CALL BRIDGE ALPFZ,JP,JP, 1,1 Y, IE, REY,TAU,CAM3, ALPHA, 1,1, ALPHA) 
IF(IF) 57C,57C,fcA0 

CALCLLAT6 AERODYNAMIC AND GECNETRIC Tv^IST 


C 

C 

C 

C 


570 IF(TV^ISA>1CC. ) 560,590,590 
56C TtsIST = T'rt ISA-(ALPhZ( JP)-ALPFZ(.l) ) 

GC TC ECO 

59C TWISA-TUIST+(ALPHZUP)-ALPFZ(1) ) 

60C CALL CATSW(C, I ) 

GC TC (030,610, I 
610 DC 620 1 = 1, NP 

620 EPS m = TWlST*TAPER*(AaS tY( I) ) - YO ) / ( C (. I ) * ( 1 • - YO )) 
IF(NFLAr.rvF.C) GC TO 641 
630 LC.CER = J 
CLL=999. 

ALPhA=999« 

REYN=999* 

REYCN=n. 


FCR XMAX=1CC. ARC WILL LCCK LP ALPHA MAX 
FCR XRAX=C, ARC WILL LOCK LP CL MAX 


XMAX=ICC. 

CALL BRIDG( ALMAX, l,NP,l, IY,IE,REY,TAL,CAMB,ALPHA,1,1,XMAX) 
640 WRlT£nPr-68C ) IE,LCCER 
CALL EXIT 
641 RETLRN 
C 

320 FCRMAT(aFlC.C) 

6bC FCRMAKlXtllFtRRCR CCCE ,I2,13H -IN StCTICN ,I3,9H ABORTED) 
END 

SLBRCLTINE MAIM 


c 

c 

c 


MAIM CCNTINLATION CF SUBRCLTINE MAIN 

DIMENSICN C(19),EPS(19),TRANS(19),REYM9),ETAU9),FCPP(19),CLMAX( 
lic) ,7HFRE(2,6),t%H£Rt(2,6),AKRAY(5,25,d ),Y(19),TA0(19),btTA(19,19) 
2,MAZZ (6 ) , MZCCL(.6 ) ,MAXX( 6 ) , M XCCL ( 6 ) ♦ YHE R t ( 2 , 6 ) ,MiYCCL (6) ,MAYY(6) , . 
3TRIX(.19,19) ,TCNY( 19) ,GE\E( 19 ) , S I GM A (19 ) , L L ( 1 9 ) , M M ( 1 S ) , CK ( 


419 ) tXFERF. ( 2 ,6 ) ,MWCCL( 6 ) ,MA'av. (6 ) 
UIMENSIC\( CVALU9) ,ALPF0( J 


C 

c 

c 


^ .ALPF0(19),CBC(19),C6G(19),DeLTA(19),ALPHZ(19), 

lALPF tl9 ) , ALPFE (19 ) tCLACC (-19 ) ,CLCLL( 1 9 ) , C L AO 2 (. 1 9 ) , CL AD 1 ( IS ) , F ( 19 ) 
CCMMCN KCR,KIR,K1L,KCL,VSA(-1S) ,SW( 19) , VS B AR , E YE I L , C TS , X Pb , Y Pb , J P , 
1IPRAB,ALPFB fKSTAL, ISTAL,KCLNT,AE (-3) 

CCMMCN NSLIFtVRdS) ,CA( 19),AS(19) ,TL(19) ,SV( 19) , F UNC , YG , CON AC , 
1ALPFV( 16) 

CCMMCN INNCW, ISWITf 3) , A L PF A , R E YN , CL L , RE YCN , XM AX , A LM AX ( 1 9 ) ,CLMAX,C, 
1EPS,TRANS,KEY,ETA,FCPP, ZFERE, WHERE, ARRAY, Y, beta ,T FAC, TR IX, TAU,MAXX 
2, M A ZZ, P XC CL, M ZCC.L, A SPEC t T AF ER, OF, KEYNCtU I SC K,PIER,CRt3,0,T STAX, EDGE 
3,SIG,ALPHR,NrLAP;NLVL,NP,lY,IZ,IR,IP,lS, I ST AR , A , ti , H , T AU T , T AOR , 
4TWlST,R,LUX,YFERt,MYCCL,'^AVY,FLAP,TGNY,l a 1 5A , X , Z , CM , ACC , XHERE , 
5M.WCCL,MAww,CAvh (19) ,CAMbR,CAMBT ,DUMYL,DUN Y2,.MAME (25 ),AHERE(2,6), 
6MAAA te ) ,MACCL (c ) ,eF£RE( 2,6) ,MAbb(6) , MlXOL ( 6 ) , CHERE ( 2 , 6 ) ,MACC(6) , 
7MCCCL(6) .CHER E( 2,6) , MACC ( 6 ) , MCCCL ( 6 ) , STO\Y( 19 ) .SCENE (19 ) ,CVAL, 
eALFHL,CBC,CeG,CELTA, ALPHZ,ALPH,ALPH£,CLACD,CLCEL,CLAD2,CLAD1, 
9F,IRI,FF,1CCER 

CCMPLTATION OF BETA 

GMEGA^2.-l./( ( l,.+4./(ASPEC«*2) )»*C.25) 

DC ere M=i,NP 
CC ecc K=1,NP 
aK = K 
AM^M 

IF'(K-M) 2C,1C,2C 

10 BE.TA(M,K )^ieO.*K/{0.*3. 14159*SINCAK*PIER ) )*CMEGA 
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GC TC 5C 

2C KK»IAeS(K-K|-2*( ( UeS(K-F)|/2l 
IH(KK-l) ^iC,3C*A0 

3C BET4^^♦K)^lfcC•/(A••3.Ul59«R•S^^J( AK*PIER) )*( l./(l.-COS( (AK+AM)^ 
13.1A159/R) |-l./(l,-CCS< iAK-A^)*3*lA159/Kn) IOMEGA 
GC TC 5C 
AO BCTA(N,K)*C. 

5C FF(P-K) 7Cf6Ct70 

60 TRIXir.K)*il.+C.l*CCK)*CRe/BUX*BETAlKtK)*7KANSlK)/EDGE 
GC TC or 

70 TRIX(^^KMC.1*C(K)*CRB/0^X^BETA(P,K)*TRA^S(K)/EDGE 
80 I*NP+l-h \ 

J*NP+1-K \ 

BCTA( I,J)^PETACy,K) \ 

8C0 TRIXU* J)=^TRiXCPfKI 
CAIL CATSV^iAtl) 

GC TC (90rlCC)» I 
90 WkITE(lP»A3C) 

CAIL SSS<BETA»NPi 

100 DC lie I»1,KP 
AI-1 

110 ETAtI)*C.523598/R*i3.-(-l.)**l)*SlN(AI*PIfcR) 


IF(NFIAP) 310,310,120 


CHECK IF FLAP CASE 


IS THERE A PART-SPAN FLAP 


12C 

13C 


lAC 

150 

60 


C 

I 
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130,310,310 
DC 170 1*1, NP 
A1»I 

THE*AI*P1ER 

IFC THF-TSTAX) 150,1AC,15C 
TCNYl 1)*1./A5.«TSTAX»S1MTHE) 

GC 1C 16G 

TCNV( i )=1./9C.*C (CCS(THF)-CCS(TSTAX) ) * ( ALCG ( L .-CCS ( THfc+TSTAX 
1) )-ALCG ( l.-CC3«T*-t-TbTAX) ) )+2.*TSTAX*SIN(THE) ) 

GFNc ( n=l*/9C.*((CLS( THE ) +CCS ( TSTAX ) )*(.ALCG< 1 . +CCS ( THfc-TSTAX 
1) )-ALCC( l.+CCSHHE+TSTAX ) ) ) + 2 . * ( 3 . 1 1 59- T ST AX ) * S I M THE ) ) 
STCNYl l)*2.»SI\( THE »-9C./3.1Al59*TCNYCI ) 

SCENE ( I )*2.<»SIMTHE)-90./3.1A159«.GENE( I ) 

TCNY( I )=TCNY( I )/CHEGA 
GENE( I)*GENE( n/CKEGA 
CCMINLiE 

CHECK FOR CtKP 


CAIL CATSW<3,I) 

GC TC (18C,19C), I 
IbO WRITFnP,AAC) 

call AAA(GENE,NP. 

WRITEC IP,A5C) 
call AAA(TCNY,NP) 

190 DC 230 K*l,NP 
SLH*C* 

DC 200 P*1,NP 

2CC SLK=TrNV( k) *eETA(H,K)+SLk 
IF(K-ISTAP) 210,210,220 
210 HLFFiK J=:1.-SLI?- 
GC TC 230 
22C HCPP(K)=-StF 
230 CCKTIMC 

CC 27C K»1,NP 
SLP»C* 

DC 2AC H*1,NP 

2A0 S0H*GENE(P)«eETA(P,K)4$UP 

IF<K-IRI+ISTAR) 250,260^260 
250 SIGPA(K)=i,-SLP 
GC TC 27C 
26C SIGPA(K)*-SLF 
27C CCNTINLE 

DC 2bO K=1,NP 

HCPPtK )=SIGPAtK)-HCPP«K ) 

280 TCKYtK)sGENE(K)-TCNY(K| 


CHECK FCR OtHP 


CAIL CATSM(3,H 



nnn non non onn non non noon 


GC TC (29C,2CC)i I 
29C W^ITEC IP,'^6C) 

CALL AAA<I-CFP,NP) 

WRITE( IP, ^70 
CALL AAA( SIGPA,NP) 

WRITE! IP, ^40 
CAIL AAAIGENE,NP) 

WRITE! IP, 450 
CALL AAA!TCNY,NP) 

WRITE! IP, 590 
CAiL AAA! STCNV,NP) 

WRITE! IP,6CO 
CALL AAA! SGENE,NP) 

3C0 CCNTINtE 
31C I-BTA=1 

STCRE BETA TEMPORARILY ON DISK SO WE CAN 
CCKPUTE THE TRANSPOSE OF TRIX 

REWIND 44 
WRITE!44) BETA 
REWIND 44 

STCRE TRIX IN BETA 

OC 320 M=1,NP 
DC 320 K=1,NP 
320 BETA!M,K>=TRIXtM,K) 

NOW TRANSPOSE BETA !CLO TRIX) 

OC 3iC N=l,NP 
or 330 K=l,NP 
330 TRIX!P,K)=8ETA!K,M) 

IBTA*1 

RESTORE BETA 

REA0.44) BETA 

INVERT TRIX 

CALL MNV!TRIX,NP,AK,LJ.,MM) 

I-FINFLAP-1) 26C,42C,42C 
360 WR ITE ! IP,.490 NAME 
WRITE! IP,'5CO 
CALL AAA!Y,NP) 

WRITE ! IP, -510 
CALL AAA! ALMAXtNP) 

SET (jP FOR CL MAX LOOK UP 

IY*1 

REYCN*C. 

ALPHA=999. 

CLi=999. 

REYN=999. 

I rcK CP CL MAX VALUES 

XMAX=o. 

CALL BRICGCCLMAX, 1,NP, 1 , I Y , I E , REV , TAU , CAMb, ALPHA , 1 , 1 , XMAX ) 
WRITE! IP,'52C ) 
call AAA!CLMAX,NP) 

WRITE! IP, 530 
CALL AAAITAL.NP) 

WRITE! IP, '540 
CALL AAA!REY,NP) 

WRITE! IP,55C) 

CALL AAA!C,NP) 

WRITE ! IP,'560 
CALL AAA!EPS,NP) 

WRITE! IP, -STC) 

CALL AAAICAMB.NP) 

420 RETURN 
C 

430 FORMAT! lOX, liHMATRIX BETA) 

440 FORMAT ! lOX,4HGcNE ) 

450 FORMAT! I0X,4HTCNY) 

460 FORMAT! 10X-,4FFCPP) 
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non non 


F^F<^'AT( lOX.bhSIGKAI 
A90 FCPFATC 1H/1(-C/35X,2542/1X) 
bOU FUPFAH 1X/1CX,22FSPA\'«ISE STAT ICNS-2Y/B) 

■jiO FfPNAT ( lOX.SHALPHA PAX) 

52C FCPPAK 10X,7I- CL PAX> 

bJO FCR^ATl 10X,30FTFICKNFSS / CFCRC DISTRIBUTION) 

5AC FCWPATI 10X,33FSECTICN REYiNCLDS NUKBERSf MILLIONS) 

55C FCRNAT ( lOX, IBPCi-nPC C 1 S TR I BUT 1 CN ) 

560 FCRMATI It'X, leFTwIST DISTRIBUTION). 

5/0 FCRMAfi inx, 19t-CAHiJcK C I S TR I bUT I ON ) 

590 FCRMATI 10X,5FSTCNY) 

6C0 FORMAT ( 10X,5V-S(iEN£) 

Ei\U 

SUBROUTINE MAIN2 

MAHs2 GENERAL PRINT SUBROUTINE — 

DIMENSION ARRAY (5, 2 5, 8 ) ,C I 19 > , EPS ( 1 9 ) , TR ANS (.19 ) ,RE Y H9 ) , ETA ( 19 )t 
IHCPF tl9) , CLMAX(.19) , 7>ER E 1 2 , 6 ) , WHERE { 2 t 6 ) , Y ( 1 9 ) , TAU ( 19 ) , wE TA ( 19 1 19 ) 
2,TRIX(19,19),yAZZ(6),M2CCL16).MAXX(6) ,MXCLL (6) . CBG 1 19 ) , CV AH 19 ) , 
3ALPG ( 19 ) ,CfiC I 19 ) , ALPHK 19)tALPt-(19),ALPHZU9),ALPHE(19)iOELTA(19)» 
AYPEKE(2,6),MYCCL(6),MAYY(.6),CM(19),XHEK£(2i6),MAftW(6) ,MWCQL(6) 
DIMENSION CLACC(19),CLUEL(I9 > , CLAD2 ( 19 ) , CLAD 1 (-19 ) t F ( 19 ) 

CCMMCN KOR,K.IR,KlLiKCLtVSA( 1 9 ) , S X (1 9 ) . VSB AR t EY E TL , C T S , XPb , YPfa t JP t 
lIPRAb,ALPK!»KSTALtISTAL»KCLNTfAb(.3) 

CCMMCN NSLIF,VR(19),DA(19),AS(19)tTL(.19),SVH9) ,FUNCt YC.CDNAC, 
lALPFV ( 16 ) 

CCMMC.n INNCh, IShITI 3) , ALPl-A , REYN , CLL . REY CN t XMAX , ALM AX I 19 ) tCLMAX.Ct 
lEPSf TRANS tREY, El A.FCPPfZFERE, ftFL-RE, ARRAY, Yi BETA, TFAC.TR IX, TAUtMAXX 
2,MAZZ ,MXCCL,M ZCCL, ASP tC.TAPL-R, BF, RE YNC, DISC it, PH-R, CRB, C,T STAX, EDGE 
3,SIG,ALPHR,NFLAP,NLVL,NP,IY,1Z,IR,I?,IG, I ST AR , A , t , H , TAUT , T AUR , 
ATwIST,R,BWX,YFERE,MYCCL,MAYY,FLAP,TCNY( 19 ) , 1 W 1 S A , X , Z , CM , ACC , XHERE , 
5MrtCCL,^'AWA,CAMB(19) , C AM 8fi , C AM BT , CUM Y 1 , DUM Y2 , NAME { 25 ) , AhER E ( 2 , 6 ) , 
6MAAA(6),MACCL(6),GFERE(2,6 ),MaBi 3(6) .MiiiCGL (6 ) ,CHERt(2,6),MACC(6), 
7MCCCL(6),CFERE(2,6),MACC(.6),MDCCL{6),STUNY(19),SGENE(.19) ,CVAL, 
8ALPFU,CBC,CBG,C£LTA,ALPHZ,ALPF,ALPM-E,CLACC,CLUEL,CLA02,CLA01, 

9F, IRI ,FF ,LCCER 
ALPG ( 1 ) =ALPG ( 1 ) 

WRITE(IP,'33C) NAPE 

WRITE(iP,3AC) ALPFB,CrS , A,E, ASPEC,F,ALPHR,TAUT 
WRITE' IP, '350 TAUR, FW I S T , R . TW 1 S A , DF , T APE R , FLAP , REYND , X , Z 
WRITE! IP,36C ) 

RETLP.N 

330 FORMAT! 1H1/1FC/35X,25A2/1X) 

3A0 FORMAT ! IX, AC ! 31-./.. )/lFC/15X,3CFBCDY ANGLE OF ATTACK, DEG. . *,F10. 
12, lCX,3CHPRCPELLEft THRUST COEFFICIENT = , F 1 1 . 3/ 1 5X , 3CHD00Y HEIGHT / 

2 SPAN =,F1C.2, lCX,3CHbODY WIDTH / SPAN =,F10. 

32/15X,3CHASPECT RATIC = , F 10 . 2 , 1C X , 3CH w I NG HEIGHT / 

A SPAN =,FlC.2/15X,3CHwlNG 6GDY InCIDE.NCE, DEG . . =,F10. 

52, lCX,3CHTIr THICKNESS CHCRD =,F10.2) 

350 FORMAT ( 15X , 30HRCCT THICKNESS CHORD .... = , F 10 . 2 , lOX , 30HGECME TR I 
1C TWIST, CEG .... =,F1C.2/15X,3CHNUMBER Cl- SPANWlSE STATIONS. » 
2,F1C.2,10X,3CHAERCCY,\AMIC TWIST, CEG . . . = , F iB . 2/ 1 5X , 3UHFL AP SPA 

3N‘ '/ WING SPAN. . . . =, F 10.2, ICX, 3CHTAPER RATIO » 

A,F1C.2/15X,3CHFLAP SETTING, CEG = , F 1 C . 2 , lOX , 30HR E YNCLOS 

5 NLMtER ,M ILL ICNS . . = , F 1 C . 2 / 1 5 X , 3CH X-COC PD I N A T E OF M'.UIYLnT REF . * 

6 . F1C.2 , lOX , 3CHZ-CCCKD INATE OF MOMENT REF . =,F10.2) 

360 FORMAT ( IHC/ IX , AC! 3H ./.) /IX ) 

ENC 

SUBRCUTIN'E MAN2A 

— CONTINUATION OF MAIN2 *********************** 

DIMENSION TCNYU9) 

DIMENSION ARRAY(5,25,fi ),C!19),EPS!19),TRANS!.19),REYU9),ETA(19), 
lHCPP!.19),CLMAX(.19),ZHERE(.2,6>,WHERE(2,6),Y(l9),TAU(19),t:ETA(19,19) 
2,TR1X(19,19),MAZZ!6),MZCCL(6),MAXX(6),MXCLL(6),CBG(19) ,CVALI 19 ) i 
3ALPC (.19 ) , C'iC! 19 ) , ALPHU! 19 ) , ALPH! 19) ,ALPH2 ( 19 ) ,ALPHE ( 19) ,CELTA( 19) , 
AYHERE(2,6),MYCrL!6),r‘AYY(.6),CM!19),XHERE(2,fc),M,AWW!6) ,MWCCL(6) 
DIMENSION CLALC(IS), CLCEL!i9),CLAD2(l9), CLACK- 19), F(19) 

CCMMCN KCR,KIR,KIL,KCL,VSA(19),S^(.19) , VSBAR , E YE TL ,CTS , XPB , YP3 , JP, 
1IPRAB,.NLPHD,K5TAL, ISTAL,K0UNT,AB(3) 

CCMMCN NSLIP, VR ! 19) ,DA( 19) ,AS( 19 ) ,TL !. 19) ,SV( 19) , F UNC , YO ,CONAC , 
lALPHV! 16) 

CCMMCN INNCW , ISWI T ! 3 ) , AL PHA , RE YM; , CLL , RE YCN, Xi-:AX,ALMAX (19) ,CLMAX,C» 
lEPS, TRANS, REY, ETA, HC PP, ZH ER E,WHckE,ARkAY,Y, BETA, TFAC,TRIX,TAU,M iAXX 
2,MAZ2 ,MXCCL,MZCCL,ASPEC,TAPER,BF,REYND,r.'l SCR,PIER,CRB,C,TSTAX,ECGE 
2,SIG,ALPhR,NFLAP,NLVL,NP,lY,IZ,IR,IP,IS,lSTAR,A,B,H,TAUT,TAUR, 

ATW 1ST, R,BWX ,YHERL,MYCCL, M«YY, FLAP, TONY, TW ISA, X,Z, CM, ACC, XHERE, 
5MWCCL,MAWW,CAM3! 19) ,CAMBR , C AM BT , UUMY 1 , DUM Y2 , NAME ( 25 ) , AHcRE 12 , 6 ) , 
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6f»AAM6),»'/iCCU6),l)htiiE(2tt)f^AtVU)fKUC0U6ttCHtflBt2t6)tyACC(6l, 
Tt^CCCL (0,CI-ERF(2tfcl tKACC(6) tKCCCLteif STONYI 19 ) » SGENi; (lY ) tCVALt 
eALPhtfCBCtCBGtCEtTA.ALPt-ZfALRI-f ALPHEtCLACCtCLDELfCLAD2tCLAClt 
9F,IK1,FF,LCCER 
1TR*C 
IV»1 

OC 7C K«l,NP 

70 ALPGlK)»ALPF8+ALPhR+EPSiK)+ALPF6*TFAC*llRANStKl.-l.) 

C SWITCH KUKBER 3 IS USED FCR AN INTERNAL 

C CLVP CF arrays COFPUTEO CLKING ITERATIOK 

C PRCCESS 

c 

CALL CATSWOtJUNK) 

GC TC t80f9C)» JUNK 
80 WRITEnP»37C) 

-CALL AAACALPGfNP) 

90 LCCER=*3 

ALPHA*999. 

CLL»C.C 

REYCN=999. 

Xf'AX-C.C 

CAIL CRlCGIALPhZf l»NP,lf IY,IE,REY,TAUfCAFL#ALPHA,ltlf ALPHA) 

CA1.L CAFSaC 3, JLNK) 

GC TC (66, 67), JUNK 

66 WRITEC IP,'6P) 

call AAA( ALPI-Z,NP) 

67 IFCIE) 101,IC1,'310 

101 TF(NSLIP-l) 135,1C2,1C2 

135 OC 136 K^ltNP 

136 TCNYtK)-0.C 
GC TC 130 

1C2 OC IC3 K*l,NP 

ALPGtK)sALPG(K)^TLCK) 

103 ALPpZ(K)=ALPHZ(K)+CACK) 

IF(ITR) 1C4,1CA,1C5 

lOA DUP = C*l«CALPI-e + ALPI-K-C.A*ALPHZ( l)-C.6*ALPHZ( JP) ) / 1 1 • 82/ASPEC ) 

GC TC 1C9 
105 DUP*C.O 

DC ice K=i,.\p 

1C6 0UV=C^G(K ) »£TA(K)<-CUM 
DLF=CUF«ASPEC«ewX**2 
109 VW*CL^«FUNC/(9.87*ASPEC) 

ALFPR=(ALPhB+EYeTL)/57*293 

ASaAK^Al AN( (SIN(ALFPR)4VW)/VSBAR1-ALFPR 

CALL CATSS(3,JUNK) 

GC TC (.50,51) ,JLNK 
50 WRITE( IP, 1CC9) 

1009 FCPNAK lOX,2F.Vi«) 

CALL ZZZ(VW) 

WR1TE( fP,lClC) 
lOiC FCR^AT( 10X,5HALFPR) 

CALL ZZZ(ALFPR) 

WRITt( IP, ICll) 

1011 FCRNAK 10X,5HASBAR) 

CALL ZZZCASBAR) 

51 OC IC31 K=l,NP 

1C31 HCPP(K )=ALPG(K)-ALPHZ(K) 

DC 1C7 KxKCR,K1R 
AS(K)*ASBAR 

VR(K)=VSA(K)/CCS(ALFPR+ASBAR) 

ANG = AS(K)+FCPP(.K)/57.29 3 
SYN=SIN(ANG) 

CCZ=CCS(AKG) 

107 SV(K)=VR(K)*SYN+VR(K)*SWiK)*CCZ-SIMHCPP(K)/57.293) 

DC ICE K=KIL,KCL 

AS(K)^ASBAR 

VR(K)^VSA(K )/CCS( ALr-PR4ASBAR) 

ANG^AS(K) fl-CPPlK )/57.293 
SYN*SIN(ANG) 

CCZ=CCS(A.\G) 

108 SV(K )=sVR(K)«SYN + VR(.K )«SwCK)*CCZ-SINiHCPP(K)/57*293) 
call CATSW(3,JUNK) 

GC TC (52, 53), JUNK 
52 WRITE( IP, 1071 ) 

1071 FCR^AK 1UX,2HSV) 

CALL AAA(SVtNP) 

WRITE! IP, 1072) 

1072 FCR^AT( 10X,2HVR) 

CALL AAA(VRfNF) 
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lOOOU uuo uuu 


122 

121 

12c 


t)<t 

13CI 

13G 

131 

1311 


100 

lie 

.120 

140 

150 

160 


53 DC 126 K=1,NP 
AK=K 

$01^1=0.0 
CC 121 N=1,NP 
AN = N 

SLy2=C.C 
JC 122 y=l,NP 
Ay^y 

SL»'2=SUy2+SV(y)»SIN(.Ay*PIER)*Sir'J(AN*AM*PlER) 

Sly l = buyn SLy2*SIN( AN*AK*PIER)/AN 
TCNY(K)=yU(K)aSiyi«4./R 
C-ILL CArSh(3,JL^K) 

GC TC (54,13C),JU\K 
i^’’.ITP(IP,nCl) 
r-CRyAf( 10X,5hCL2CB) 

CALL AAA(TC^Y,^P) 

DC 1311 K=1,NP 

HCPP(K) = ( ALPG(K)-ALPFZ<K)*(.1.-EDGE) )/E0GE 
CLL=S>;9 . 

REYCN-999. 

XypX=C.C , 

icVVc?‘^IRR‘"?)!-’-lh'^'*»i»^^’^^»‘^EY,TAi;,CAKB,HOPP,l,NP,CLU 

Irlir ) 

DC lie K=1,\P 
AK=K 

CeG<.Kl=CVAL(K)»(ASPfcC/( ASPEC+1.6) )*C(.K)»CRB*(.0.5+ 
lll .+TAPLR)»SIN(AK*PIER)/t3.14159*CU) ) ) 

CALL CATSV. (3,JINK) 

GC TC ( 12C, 140 f JUNK 
WRITE( IP,33C > 

CALL AAA(CVAL,NP) 

CC 16C K=1,NP 
SIG=C.C 
DC 15C y=l,NP 

SIG=(CeC(y )-TCNY(y ) ) *BETA(y,K)+SlG 
ALFPl(K)=SIG»( l.+TFAC»{TRANS(K)-l.) ) 

ALPHIK )=AL?G (K )-ALPI-U(K ) 

ALPPE (K) = (ALPHK)-ALPPZ IK )*( L. -edge )) /EDGE 


LCCK tP CL VALUES FOR A 
VALlbS 


LIST OF ALPHA 
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LCCER=4 

CLL=999. 

REYCN=999. 

XyAX=C. 

9c-f lY,IEtftEY,TAU,CAMB,ALPHE,l,NP,CLL). 

DC IfiC K=1,NP 

CRC(K) = CVU (K)*C(K)*CRB/BKX 
DLLTACK )sCli.C(K)-C[iG(K) 

CHECK FCR CUyp 


190 


CALL CATSWOtJUNK) 

GC TC (19Ct2GO» JUNK 
W«ITE(I?,39C) 

CALL A.AAfCBG.NP) 

WRITt( IP,4CC) 

■CALL AAA( Ai.PFLfNP) 

WRITE( IP, 410 
CALL AAAIALPFE.NPI 
rtRITEI IP,3«CI 
CALL AAA(CVALtNP) 

KKITEI IP,-42C) 

CALL ;AA(CUC,NP) 

WRITEUP, 43C) 

CALL AAA(CE.LTA,NP) 

CHECK TOLERANCE 

200 DC 22C K=1,NP 

210 210,210.230 

220 CONTINUE 
230 CC 25C lal.NP 

siy=c. 

DC 240 J=1,NP 


r t 
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c 

c 

c 


2^0 

250 


5tf'=TRlX( IrJ)^»CELTAU)+SUK 
JCBGm^C8G{ 


CHECK FCR DUKP 


26C 


C 

c 

c 


£A1L CATSViOf JUNK) 

GC TC (26C»27C), JUNK 
WRITE(IP,39C) 

CA1.L AAA(CBGtNP) 


REPEAT CYCLE 


270 

141 

C 

c 

c 

c 

c 

280 


300 

310 


ITR=ITR-H 

lF,CITR-30) 141,141,280 
IFCNSLIP-l) 14C,1C5,1C5 


IF UNABLE TC CONVERGE AFTER 30 ITERATIONS 
CUPP CELTA VALUES, C VALUES, AND TABLE 
PRESENTLY IN CORE BEING USED FQK LCCK UP 


WBITEnPf‘44C) 

WRITE‘(IPf43C) 

CAIL AAACCE.LTAfNP) 
WRITE(IP,‘38C) 

-CA1.L AAA(CVAL,NP) 

CAIL EXIT 

WPirE( IP,47C) ITR,ALPFB 
CAiL PAIN4 

WRITE( IP, -480 lEfLCCER 
CAIL EXIT 


68 FCRPATdOX, 16FZERC-LIFT ANGLES) 
37C FCRPATC 1CX,4FALPG) 

380 FCRPAT( 1GX,4HCVAL) 
FCRNArM0X,3FCBG) 
FCRPATtlOX,5hALPHU) 

FCRPAT( 10X,5KALPhE) 
FCRPATdOX,3hCfiC) 
FCRHAUlOXtSHCELTA) 

FCRPAT( lXt4BFU\AB.LE TC CONVERGE 

TO * “ “ 


390 
400 
4 1C 
420 
430 
440 
470 


FCRKAT{ lOX, I2t63H 

IFACK ECL'AL TC ,F8»2/1X) 

A80 FCR^AK 1X.ICFERRCK CGCE . 12 , IXt lOHAT 
IXECLTICN TERKINATEC) 

ENC 

SUBRCUTINE RAIN4 


C 

C 

c 


AFTER 30 ITERATIONS ABORTED) 

ITERATIONS REQUIRED TC CONVERGE FOR ANGLE CF 


AT 


SECTION, 13, IX, 32H1N PROGRAM, E 


PAIN4 


CONTINUATICN CF SUBROUTINE KAIN2 



C 

c 

c 


5XFEPE(2,6) ,MANW(6) ,MUCCLT6) 

DIMENS ICW C1ACC(19),CLCEL(1S),CLAC2(19) ,CLAD1(1S),F{19) 

OCMMCN KCR,KIR,KIL,KCL,VSAHS),SU19) ,VSfcAR,EYETL,CrS,XPB,YPB,JP, 
1IPRAK,ALPHJ,KSTAL, lSTAL,KCLNT,At.(.3) 

CCMMCN NSLIF,VR(19),CA( 19) ,AS(19),TL(19) ,SVH9) ,FUNC,YO,CONAC, 
lALFEV(lt) . ^ ^ 

COMMON . - - 

lEPS, “ 

2,MAi 
3, SIC. 

4TWIST 
5M.WCCL 
6MAAAC 
7MCCCL 
8ALPEU 

9F,IRI. . 

DC 1C K*1,NP 
10 CL(K)=CVA1(K) 

IZal 
liCCER^S 



CCMPLTE PROFILE DRAG COEFFICIENTS 


X:L1=9S9. 

REYCN^S 99 ., 


J.80 



c 

c 

c 

c 


c 

c 

c 


20 


30 


C 

c 

c 


Xt'AXsC, 

uU 4v K*lfNP 

CL(K)sCVAl.(K) 

CCVPLTE QUARTEK ChCRD PITCHING KQPENT 
CCEPhICI ENTS 

CL1=S99. 

REYCK=999. 

X.''AX=C. 

So^k,.®S*9^i£^»l»'^'*»3»I>',lE,REY,TAU,CAKB,CL,l,NP,CU) 

Uu -jC K=^ltKr 

CHECK IF SECTION STALLED 

IF« ALPFEJK)-ALKAX(K) ) A0»3Cf3C 
WB|TfcUP,-26C) K,ALPFE(K),ALPAX(K) 


C 

C 

C 


C 

C 

C 

C 


CCPPUTE SECTION PITCHING PC^ENT 

AO SUPl=CCS(3.1A159/l80.«(ALPFB-ALPFUKn) 

SLP2=SIM3. 1A159/18C.*( ALPHa-ALPHL(K).) ) 

'^lf£^f{'^’"^^‘'<'^**‘^^'-'*^>*S'Jf'l+‘-‘3C(K)*SUP2)-Z/ClK)*(CL(K)*SUP2-COQ 

1 vK I 1 / 

50 CCCCIK)=CCC(K)«C(K)*CR8/BWX 
WRITE(1P,39C) 

CAIL AAA(Y,NP1 
WR1TE(IP,27C) 

CALL AAAICPtNP) 

CHECK FOR DUPP 

CALL CATSK(3»JUNK) 

, GC TC (60,70, JUNK 
60 WRITE(IP,280 

CALL AAA(CLPAX,NP) 

WRITEUP, 290 
, CALL AAA(CCCC,NP) 

70 WRITE II P,‘3CO 

CALL AAA( ALPHE,NP) 

WRITE! IP, 310 
CAJ.L AAA(CCC,NP) 

CC eC K=1,NP 

WRITE! |p^320 
CALL AAaIaLPG.NP) 

WRITE! IP, 330 
CALL AAA!CL,NP) 

IF(AS.L1F.EC.C) CTS=O.C 
DC «C1 K=1,NP 

801 CCC!KI=CL!K)«!1.-CTSI 
WRITEUP, 380 
CALL AAAICnC.NP) 

SUMsC. 

SLP2=C.. 

SUP3=C. 

SUPA=C. 

DC 9C 1*1, NP 
SUPl=CeC( I )*ETAU )+SUPl 
SUP2*C8C! n*ALPHUU )»ETAU )+SUP2 

SUP3=CCCC( n«F.TA( I )+SLP3 • 

90 SL>'A=CP!n*C!I)««2«ETA!.I) + SL'P4 
Q*ASPEC«UWX«*2 
CLIHT*C*SL'P1 
CLPP*CLIFT*!1.-CTS) 

CCI=C.C17A53«C*SUP2 
CCP=C*StP3 
CC=CCI+CC?+CCNAC 
CCPP=CC«( l.-CTS) 

ZP*ASPEC*6WX*CRB/ACC*SUMA 
CPFP=2P*( l.-CTS) 

WRITE (IP,3AC) 

WRITE UpI’AcI ^*-'’*'‘^’^‘^^»^‘-^^^»^'^'*»^^^‘^*‘^^'^*C*2MrCC,CMPP,C0PP 
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1-F( CKSTAL.FC.C),ANC,(KCUM.tC,C) ) GC TO 250 


C 

c 

c 


DEFINE EXACT STALL ANGLE CF ATTACK 


lOOG 


2CCC 


2L0C 


3000 

31C0 


3200 


3300 

9900 

170 


250 


171 

C 

260 

270 
2P0 
290 
30C 
310 
320 
330 
3A0 
3A1 


IF:C tIPRAB.EC*l).CR.(KCUNT.EC.3) ) GC TO 9SC0 
KCL‘NT^KCUNT + 1 

GC TC ( 1CCC,2CCC,3CCC) iKCLNT 
AG( l)=( aLFFe+ALPhV( IPHAft-1) )/2, 

ALPFC-AD( 1 ) 

GC TC 9900 

IF(KSTAL^EG.C) GO TO 21CC 
ISTAL=1 

AH(2)-l APU)4ALPhVUPRAfi-l) )V2* 
mLPFB=AE( 2) 

GC TC 990C 
IST/iL = C 

Ai}(2) = (A0Il )+ALPHV( IPRABl )/2- 
ALPFB=Ae(2) 

GC TC 9900 

I F(KSTAL+ISTAL-1) 3 ICC » 3 2CC , 33CC 
AB13)=( AB(2)+ALPHV( IPRAE) )/2. 

ALPFB=AB( 3) 

GC TC 9900 

AB(3) = (AB(2)-^AB(l))/2. 

ALPFB=AB(3) ' 

GC TC 990C 

AS ( 3 )=(A5( 2 )+ALPHV{ IPRAB-1) r/2. 

ALPFE^AHO) 

KSTAL^C 

DC 170 K=l,NP 

CCC(.K)=CL^'AX{K)-CL(K) 

WRITEC IP,35C) 

CAXL AAAlCCCtNP) 

I-F:C(IPRAB.EC.1).CR.{KCUNT.EQ.3)) GO TO 171 
WRITE( IPf 370 i\APE 
WRITE( IP,36C) ALPHB 
IR=iCC 
•CAXL ^AN2A 
I*R-=C 
RETURN 
IR^IOI 
RETURN 


FCRPATMOX, 19FSTA.LLEC AT STATION ,I2,iSh ANGLE OF ATTACK =,F7.3t 
11CX,21FS£CTICN STALL ANGLE =,F7.3) 

FCRPAT(10X»35FSECTI0W PITCFING MOMENT COEFFICIENT) 

FCKMAT ( 10X,5FCLMaX) 

FCRMAT( 10X,AFCCCC) 

FCRMATC lCXt33FEFFECTIVE SECTION ANGLE OF ATTACK) 

FCRMAT( 10X,32hSFCTinN PRCFILE CRAG COEFFICIENT) 

FORMAT M0X,32FSECTICN INDUCED DRAG COEFFICIENT) 

FCRMATI 1CX,A3ECISTR13UTICN CF SECT ICN LIFT CDEFF ICI ENT-CL ) 
FCRMATC iX,AC{3F./. )/lFU/) 

FCRMAT ( 1CX»36FFUSEUAGE ANGUE OF ATTACK , DEGREES. . = »F9.5» 
11CX,32FINCUCED DRAG CCEFF 1 C I ENT , CD I = ,F9.5/iOX, 

236FLIFT CCEFF IC lENT ,CL = ,F9.5, 

31CX,32FPRCFILE CkAG CCc F F I C I ENT , CO = ,F9.5/lOXf 

A36FLIFT CCE F F I C I ENT , C LS = »F9.5 


510X,32FNACELLE DRAG COEF F I C I EN T , CCN 
636FFITCFING MOMENT CGEF F I C I EN T , CF . . 

71CXt32FTCrAL CRAG CCE F F I C I ENT , CD 
636FPITCJ-ING MCMENT CCE F F I C I ENT , CMS . 

910Xt32FTCTAL CRAG CCE FF I C I EN T , CDS 
35C FCRMAi ( 1UX,3AFSTALL MARGIN C 1 ST R I BUT I UN , CUK A X-C L » /I X ); 

360 FCPMATI LX,AC(3F,/.)/1X/1CX,2EFADJUST£l; A\CLE OF ATTACK TCtFB.3,32H 
ItSEAkCFING FCR EXACT STALL PC I N T , / 1 X / IX , AC ( 3H . / . )./ IX ) 

370 FCRMAT( 1F1/1FC/35X,25A2/1X) 


,F9o5/10X, 
.=,F9.5, 
,F9.5/10Xr 
I = y Fv^» 5 t 

,F9.5/iH0/) 


380 FCRMATI lOXyAAFDISTRIBUTICN OF SECTION 
390 FCRMAT ( 1CX,22FSPANW1SE STAT ICNS-2Y/B ). 
END 

SU'BRCUTINC MA1N3 


LIFT COEFFICIENT-CLS) 


C 

C- 

C 


KAIN3 — SUBROUTINE FOR THE CASE WITH PART-SPAN FLAPS 

DIMENSION ARRAY (5,25, 8 ) , C ( 19 ) , EPS M9 ) , TR AN S C19 ) ,RE Y C 19 ) , ET A ( 19 ) • 
IHC'PPI 19 ) rCLMAXCig) ,ZFEREC2»6) tWH6RE(.2r6) , Y( 19) ,TAU( 19 ) t BETA ( 19» 19) 
2,TRIXt 19, 19),MA22(6) ,M2CCL(6) ,MAXX(6) ,MXCCL(6) ♦XhERC(2,6)tMWCCU6) 
3tMAWW(6) ,*CM{ 19) ,CBG( 19) ,CVAU 19) ,ALPGM9),CBC{.19) ,ALPHU(19) ,ALPh(l 
A9) ,ALPF2( 19) ,ALPFE( 19) ,CELTA( 19) ,CLU9) ,YHERE(2,6) .MYCOL 
5(.6) ,MAVY(c) ,CLACD(19) ,CLDELtl9),CLAU2(19),CLADU19) ,F ( 19 ) , ALPC (19 ) 
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6,1CNY(19) 

CCf'^CN KOI?,KIR,KILfKCL» VSA( 19 ) , SW (. 1 9 ) , VSDAR , EYETL ,CTS ,XPB , YPB t JP» 
lIPBAP«ALPHr:,KSTAL, ISTALfKCLNI ,Ab(3» 

CCf'PCN NSL1F,VR( 19) fCA( IS ) , AS ( 19 ) , T L U9 ) ,SVH9) ,FLNG,YG,CDNAC, 
lALPhV(lf) 

CCPKCN INNC'm, ISftlTCi) ,ALP1-A tKEYM,CLL,KEYCNtXPAX,ALPAX( 19) ,CLPAX,C, 
1 EP S f Tk ANS, R £ Y. ETA, l-CPP, ZFERb, KPERE, ARRAY fY,(iErA,TFAC, TR IX, TAtfPAXX 
2,RAZZ,NXCCL,NZCCL,ASPtC,7APER,LF,REYNt:,UliCK,PI-ER,CRB,Q,TSTAX,ECGE 
3fSIG,ALPhR,AFLAP,MVL,NP,IY, IZtiK, IP,ISIS,I STAft,A,B,H,TAUT,TAUR, 
AThIST,R,i2WX,YFCKe,PYCCL,PAYY,FLAP,Tr.NY,TUSA,X,Z,.CP,ACC,XHERE, 
5PRCCL,PA),K,CAPeUS) ,CAPtJR,CAMiT,CUPYl,DUFY2,NAKE(25),AHER£I2,6) , 
6PAAA(e) ,f'ACCL(6) ,t*F£RE ( 2 , 6 ) ABB (-6 ) ,PbCtjL(6 ) .CHfcRt ( 2 , 6 ) ,PACC (6) , 
7I/CCCL{A),LFERE(2,6) ,PAL'D(6) ,Pl;C0L(.6 ), STONY { 19 ) , SGENc ( 19 ) ,C VAL , 
EALPKJ,CPX,CBG, DELTA, ALPFZ,ALPh,ALPFb,CLACL-,CLDcL,CLAD2,CLADl, 
SF,IR1,FF,LCCER 
1F( IPRAE.NE.DGC TO 6S0 
ALPe=C. 

CL(1)=C. 

IRI=R 

1TB=C 

IY=1 

PUT FLAPS-LP CL DATA INTC CORE 

Call LAGET(ARRAY,1,1Y) 

LCCER=2 

DC 6C K=1,NP 

ALPGtK)=3Z 

LCCK UP CL VALUES 

CLL=999. 

AlPFm=ALPG(K) 

REYN=PEY{K) 

TALX=TAL(K) 

REYCN=SS9- 

XPAX=C. 

CALL ARC( ARRAY, TAUXjPAXX, KXCCL, IE, WHERE, NLVL) 

CHECK FCR ERROR STOP 

IF(IE) 50,5C,AC 
AC WkITE(IP,720) IE,LCCER 
CALL EXIT 
5C CVAL(.K)=CLl 
AK=K 

60 CSGlK)=CVAL(K)»(ASPEC/( ASPEC+l.B) )*C(K)*CRB*L0.5+(1.+TAP£R)*SIN(AK 
1*FIER)/(3.1A159«C(K) ) ) 

Call CITSWIB.JLNK) 

GC TC (.70, HC),, JUNK 
7C WRITE! IP, 730 

CALL AAA(CVAL,NP) 

80 DC 12C K=1,NP 
SIG=C. 

DC SC P=l,NF 

90 SIG=CBG(r')*eETA(P,K)+SIG 

ALPHL(K)=SIG*(1.+TFAC«( TRANS (K)-l.) ): 

.ALPH(.K)=ALPG(K)-ALPHU(K) 

LCCK CP ALPHA FOR ZERO LIFT 

LCCER=3 

ALPHA=SS9. 

CLL=C.C 

R£YN=RbY(K) 

TAUX=TAL(K) 

REYCN=iSS9. 

XPAX=C, 

CALL ARC( ARRAY, TAUX, PAX X,PXCCL, IE, WHERE, NLVL) 

IF(IE) 100, ICC, 95 
95 WRITE(IP,-72C) IE,LCCER 
CALL EXIT 
ICO ALPHZ(K)=ALPHA 

ALPHE(K) = (ALPH(K)-ALPH2tK)«(.l,-ECGEn/E0GE 

LCCK UP CL VALUES 

LCCER^A 
n I sccQ 

ALPHA=»ALPH.E.(K') 
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c 

c 

c 

c 

c 

c 


c 

c 

c 


REYN=ftEY(K) 

TAfX=T4t(K> 

REYCN=i$99. 

XyAX=C. 


CALL ARC(ARRAY, lAbX.f'AXX.f'XCCL, IE, WHERE, MVL) 
IF(IE) 110, lie, 95 
110 CvAL(K)=CLL 

CEC(K)=CVAL(K J*C(K)*CRB/BWX 
12C DELTA(K) = Ct«X:(K)-CeG(K) 

CA.LL CATS'-iO, JUNK) 

GC TC tl3C,lAC), JLNK 
130 WRITE(IP,7AC) 

CALL AAA(CeG,NP) 

WRITE( IP,75C) 

CALL AAA(ALFHL,NP) 

WRITEUP, -760 
CALL AAA(ALPHc,NP) 

WRITEUP, 73C) 

CALL AAA(CVAL,NP) 

WRITEUP, 77C) 

CALL AAA(CeC,NP) 

WRITE! IP, 780 
CALL AAAJCELTA.NP) 
lAO DC 16C K=1,NP 

IF(AeS(CELTA(K) )-CISCR) 15C,15C,17C 
150 IF(K-NP) leC,24C,2AC 
16G CCNTIRLE 
170 DC 19C 1=1, NP 
SLP=C. 

DC 18C J=1,RP 

18C StP=TPIXU , J)«CELTA( J) + SLy 
190 CBGU»=CBG( D+SUP 
CALL CATSWO, JLNK) 

GC TC (20G,21C), JUNK 
200 WR.ITEUP,'7AC) 

CALL AAA(C66,NP) 

210 ITR=ITR+1 


ITERATICN CONTROL 

IF'UTR-30) 8C,8C,22C 

IF UNABLE TC CONVERGE, OUPP ALL 

220 WRITEUP,79C) 

WRnEUP,78C) 

CALL AAA{CE1TA,NP) 

WRITEUP,73C) 

CALL AAA(CVAL,NP) 

DC 23C J=1,NLVL 
NR-PaXX(J) 

NC=PXLCL( J) 

TALX=v.HERE(2,J) 

WRITLUP,eCC) J, J,NR,KC,TALX 
DC 23C K=l,NR 

230 lr.PITEUP,eiC) {ARRAY! J,K,L) ,L=l, NO 
CAJ L EXIT 

CONVERGENCE 


2A0 WRITE! IP,e20 NAPE 

WRITE!IP,830 ITR,ALPB 
SLP=C. 

DC 25C 1=1, NP 
25C SLP=CCCU )«ETA! I )+SUP 
C=ASPECefiKX«»2 
C 

C CALCULATE ADDITIONAL LIFT DISTR10UTICN,CL1 

CCLIF=C«SUP 
DC 26C K=l,NP 

20C .CLACC(K)=CVAL!K)/CCLIF 
CLL=0. 

AL-PHA=999. 

REYN=REY! ISTAR) 

TAUX=TAL! ISTAP) 

C CALCULATE ZERC-LIFT ANGLES CUT60ARD AND INBCARO CF 

C FLAP END 

REYCN=999. 

CALL ARC! ARRAY, TAUX,MAXX,PXCCL, IE, WHERE, NLVL) 
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c 

c 

c 


?70 

260 

29C 

30C 

310 

32C 


C 

C 


33C 

390 


350 


360 

370 


380 


390 

900 


AlaALPhA 

ALPPA=9S9. 

r*.. ,'-OAD FLAP CL TABLES INTO CORE 

CALL CflGET(A'RRAY»9, IW) 

95^!r. *?C(MKBAY»TAi;X,FAl»Vs,PWCCL,lh,XFeREtNLVL) 

A2«ALPr A 

SCELT=A1-A2 

ALPG(JP)=0. 

ALPI-A=ALPC(JP) 

CLL=S99. 

REYK=REYIJP) 

TALX=TAL( JP) 

CALCULATE APPRCXIFATE SPAN LOACING VsITH FLAP 
RbYCN=999. 

CALL AFC( ARRAY, TAUXtPAVsW fPVtCCLt IE, XhEREiNLVL) 

CVALUF)=CL,L 
PC 29C K=1,JP 
AK*K 

STAR=1STAR 

IF(K-ISIAP) 260,280,270 

yT^''*’t‘'^P’*^*'^'*^'^®^S‘'X*H* + SCRT(1.-(.CCS(AK*PIER)/CCS< 
lSTAP#FIEr<) )««2) ) 

CC 7C 290 

!!^'^®/®''^*<i*~scrt(i.-ui»-ccs(ak»pier) )/ 

l(.l,-CCS(STAR«PIER) ) ).«*2) ). 

CCMULE 

CC 3CC K=1,JP 

IR1=R 

IRI=IRI-K 

CB6(IRI)=CBG(K) 

IRI=R 

DC 310 K=1,NP 
ALPG(K)=0. 

CALL CATSW(3,n 
GC TC (220,330, I 
WRiTEC IP,e9C) 

CALL AAA(CLACC,NP) 

WRITE( IP,85C) 

CAIL ZZZ(CLL) 

WRITFnP,-79C) 

•CALL AAA(CBG, NP» 

calculate lift 

ENC EFFECTS GN 
1TR=C 

DC ACC Ksl,NP 
SIG=C. 

DC 250 P=l,NP 
SIG=CBG(R)«EETA(P,K)+SIG 
ALPFL(K) = S1C» ( l.+ T FAC* (TRANS (K)-l 
ALPHK J=ALPG(K )-ALPHU(.K ) 

ALPCIK )=SCELT*FCPP(K) 

ALPH.K)=A1PMK)-ALPC(K.) 

CLL=C. 

ALFFA=999. 

REYN=REY(K) 

RCYCN*999Z 
TAUX=TAt(K) 

IF(K-ISTAR) 3E0,380,36C 
IF(K-IPI+ISTAR) 370,380,380 
CALL LACET( ARRAY,9, IN) 

9 ^ S 9 ‘ ^ ^ ^ ^ ^ ^ ^ ^ ^ » I £ » X E R E , N L V L ) 

ALPF7 { K )=ALPFA 

ALPFA=( ALPF (.K)-ALPFZ(KMtl.-ECGE) )/EDGE 
CLL = 99*:. 

CA.LL ARC (ARRAY, TAUX,t'ANW,PWCCL, It, XHERE,NLVL) 

C V AL I K ) — C L L 
GC TC 390 

CAJ.L CAGET(ARRAY, 1,IY) 

ALPFZ ( O - U PFA ’ ^ ^ ’ 

AL PFA=(ALPMK)-ALPFZ(K)* LI. -EDGE) ) /EDGE 
CLL-999. 

CAIL ^ARO ARRAY, TAUX,RAXX,PXCCL, IE, WHERE, NLVU 

cer (K)=CVAL (K )*C(K)*CRB/ewX 
DELTA (K)=CeC(K)-CBG(.K) 

CALL CATSW(3,JUNK) 

GC TC (910,920), JUNK 


DISTRIBUTION 
SECTION DATA 


WITH FLAP-LNCGRRECTtD FOR FLAP 


) ). 



non 


AlO WBITEnP,75C) 

CiU /i/iAC/SLrf-LfNP) 

WRITEUP, 880 
CA.LL A^A(ALP.C,NP} 

WPITE( IP,89G) 
call AAA{ ALPf-,KP) 

WRITEt IP.OCC) 

CALL AAA( ALFhZ.NP) 

WRITE( IP,73C) 

CALL AAA(CVAL,^P) 

WR1TE( IP,920 
CA.LL AAA(CBC,KP) 

WRlTEt IP,78C) 

CAIL AAACCELTA.NP) 

A2C OC AAC K=1,^P 

IF(AES{CELTA<K) )-CISCR) A3C,A3C,A5C 
A3C rF(K-fvP) AAC,5CC,5C0 
AAC CLMINLE 
A50 OC A7C 1=1, NP 
SLP=C, 

DC Ate J=1,NP 

A6C SLP=I«IX( I, J)»DELTA(.J)+SLP 
A70 CHG{ 1»=CBG( D+SUM 
CALL CATSWOfJUKK) 

GC TC (A8C.A9C), JONK 
ASO WRITC( IP,7aC) 

GALL AAA(CbG,KP) 

A90 ITR=ITB-U 

ir(ITK-3C) 3AC,3AC,22C 
see or. 5iC K = i,NP 
51C CLCtUK)=CVAL(K> 

Fi=CLCEL( JP}/CLACU(JP) 

F2=CLCEL( l)yCLACD{ 1) 

OC 520 K=l, rSTAR 
52C CLAC2(K)=F2*CLACC(K) 

DC 53C K=iSTAR,JP 
530 CLACKK > = F1*CLACC(K J 

BDELT=CLAC1 ( 1ST AR )-CLAC2 USTAR ) 

DC 5A0 K=1,ISTAR 

5AC FtK) = lCLCEL(K}-CLAC2(K) l/BCELT 

FF= (CLCEL (I STAR »-CLACl (ISTAR ) ) /ODELT 

EST=ISTAP+1 

DC 55C K=1ST,JP 

55C F(.K) = (CLCEL(K)-CLAC1(K) T/eCELT 
DC 560 K=1,JP 
I-RI=K 
IRI=IRI-K 
560 F(.IRI)=F(K) 

GALL CATSW(.3, JUNK) 

GC TC 1570,580, JUNK 
57C WRITE! IPfBAO 

Call aaa(clacc,np) 

WRITE! IP, 960 
GALL AAA(CLCEL,N'P) 

KRITc!IP,970 
CALL in. (FI) 

V, RITE! IP, 980 
CALL 2ZZ (F2) 

WRITE! IP, 990 
CAiL AAA(CLAC2,NP) 

WRITE! IP.ICCO 
CALL AAA(CLAC1,KP) 

WRITE! IP, ICIO 
CALL AAA(F,AP) 

WRITE(IP,1C2G) 

CAIL ZZZ(FF) 

ICCK LP Cl RAX FOR SECTION' CN UMFLAPPED SIDE OF FLAP END 

580 GALL CAGET!.ARRAY,1,1Y) 

REYN=999. 

XRAX*C. 

GLL = 999. 

AL'P)-A=999. 

REYCN=REY(ISTAR) 

TALX=TAL( IS TAR) 

CAIL ARC!ARRAY,TAUX,MAXX,RXCCL, IE, WHERE, NLVL) 

CLKNF=XRAX 
XRAX=L. 
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LCCK UP CL FGR SECTICN CN FLAPPED SIDE OF FLAP EWO 

£ALL CAGET(ARPAY,A»U) 

CALL ARCI ARRAY tTACXf KAht^iPKCCLf lEtXHEREfNLVL) 

CLPF»XPAX 

DCLPA«CLMF-CLPKF 

CLL*S9S. 

ALPFA-999. 

RCYN-999. . 

XPAX*C. 

DC 63C K»l/,hP 
I R I *R 

(F(K>ISTAf^) 6C0»60Cf59C 
590 IF(K-IRI-f ISTAR) 610»6CC»6CC 
6DC XPAX«C. I 
REYCN-REYIK) 

TAtX>TAL(X) 

iLCCK tP CLPAX FCR ONFLAPPEC KING SECTIONS 
CALL CAGETIARRAY,l,IYI 

CALL ARC! ARRAY. TAUX.PAXXtPXCCL* IE tKHEKEtNLVL) 

GC TC 620 
610 XPAX»C. 

REYCN-REYIK > 

TAOX-TAttK) 

LCCK UP CIPAX FUR FLAPPED KING SECTIONS 
CALL CAGETt ARRAY.A, IK) 

CALL ARC( ARRAY. TAUX.PAKKf KKCCLt IE. XHERE.NLVL) 

620 F(.K)*1.+F(K)*CCLFA/XPAX 
630 CLPAX(K)=F(K)*XKAX 
FF*l,. + FF*CCLPA/CLPF 
DC 67C K*1,NP 
IF(K-ISTAR) 65C.65C.6AC 
6AC IF(K-IBI+I£TAR) 66C.650.65C 

LCCK UP ALPHA AT, CLKAX FCR UNFLAPPED KING SECTIENS 


i 


650 CALL CAGETIARRAY.i, lY) 

ALPFA»999. 

REYN»999. 

CLL=999. 

REYCN»REY(K) 

TAUX«TAU(K) 

XPAXslCC. 

CALL ARCIARRAYrTAUX.PAXX.PXCCL. lE.KHERE.NLVL), 

GC TC 670 

LCCK UP ALPHA AT CLPAX FCR FLAPPED KING SECTIGNS 

66C CALL CAGETI ARRAY.A. IK) 

XPAX*1CC. 

REYCN»RFY(K ) 

TAUX-TAUIK) 

REYN*999.’ 

ALPHAa999. 

CLLsSSO. 

CALL ARC! ARMAY.TAUX.PAKW.PKCCL. lE.XHERE.NLVL) 

670 ALPAX(K)»ALFH2(K)-f(XPAX-ALPH2(K) )«ELGE*H(K) 

KRITE ( IP.H2C) NAHE 
KRITEI IP. IC2C) 

CALL AAA(Y.NP) 

KRITEI IP.1CAC) 

CALL AAAI AIPAX.NP) 

WRITEUP. ICSC) 

CALL AAA(CLPAX.NP) 

WRITE! IP. IC6C) 

CALL AAA(TAU.NP) 

WRITE! IP.1C7C) 

CALL AAAIREY.NP) 

WRITE! IP. ICeC) 

CALL AAA(C.KP) 

WRITE! IP.-109C) 

CALL AAA(EPS.NP) 

CALL CATSKI3.JUNK) 

GC TC !68C.690)t JUNK 
660 WRITE! IP. IICO) 

CALL 22ZICCLPA) 


187 


non oj ono 


WPITF( IP, KIC) 

/iAA(F,NP) 
i^RITEC lPf lC2Q) 

£ALL ZZZCFF) 

690 CALL NAINb 
C 

72C fCPPATMXtlCFERKCR CCLE , 1 2 ♦ IX , 1 OHAT SECT ION , I 3 , IX , 3 2H I N PROGRAM, E 
IXECLTICN ThKNiNATfcC) 

73C FfRNATC lOX.^hCVAL) 

740 FCRMArUOX,3FCBG) 

750 FCRFAT ( lOX, i:FALPHU) 

760 FCRiOT(ir.X,5l ALPHE) 

770 FCRMAK lOX, 3hCBC) 

760 FCRPAT(.10Xt5FCELTA) 

790 FCR^'AT(2X,At?FL^A^iLE TC CCWERGE AFTER 30 ITERATIONS ABORTED) 

80C FfPMAT( 1HC/1FC,7^- ARg a Y t , 1 1 1 1 IF 1, 1) Tu (, I I , LH ,, I 2 , IH ,, I 2 , IH ), F 
11C.5/1FC) 

81C FCKMAT(12F]C,4) 

820 FCRPAT< 1H1/1FC/35X,25A2/1X) 

83C FCRNAT(1X,33F ITERATIONS REOLIRED TO CONVERGE ,I2,19H FOR ALPHB EQ 
IVAL TC,F1C.1/1FC) 

84C FCRNaK 10X,5) CLACC) 

850 FCRNATU0X,2FCL ) 

88G FCRRATC lOXtAFALPC ) 

890 FCKNAT( lCX,4h aLPF) 

SCO FOPRAK 10X,5FALPFZ) 

S20 FCRRAK lOX, 3FCCC) 

96C FCHNAK 10X,5FCLCELI 
S7C FCRNAT(10X,2FFl) 

SbC FCRMAT< 10X,2FF2) 

990 FCRRAT(10X,5F.CLA02) 
lOCC FCRNAK IGX.EKCLABl) 

ICIO FCRRAK lOX, IFF ) 

1020 FCPFAT ( lOX, 2FFF ) 

1030 FCRRATdX/lCXt’.SPANwiSE ST A T I CN S-2Y /B • ) 

104C FCPRAHIOX, ICF ALPFA NAX) 

1C5G FCRRAT ( lOX, 71 - CL RAX) 

ICoC FCR^A1 ( lOXr 31F THICKNESS / CFCRD 0 I S TR I BLTI ON ) 

1070 FCPRATdCA, •SFCTICN kEYNCLCS NLN6 ER S , M L L IONS • ) 

1C80 FCRNmT( lOX, 19F CHCPC C I 5 T R 1 BL T I ON ) 
lose FCn.v.Af dOXdfcF GECNETRIC TkIST) 

IICO FCHMAI dOX,6FCCCLMA) 

END 

SUBRCLTINE PAIN5 

*«*«**NAIN5 — jCCNTINUATION CF SLBROUTINE KAIN3 *****n** 

OIMENSICN ARRAYt 5t25,8 ) , C ( 1 9 ) , E P S ( 19 ) , TRANSdS) , RE Y M9 ) , £ T A ( 19 ) , 

IHCPP U9 ) ,CLY AX d9 )• ZFERL (.2,6 ) fUMERL ( 2,6 ) ,Y( 19) , TAL( 19) ,Eh lA ( 19, 19) 
2,TRIXd9,19),PAZ?(6),MZCCL(e) , K AX X ( 6 ) , X CCL ( 6 ) , XFEft E (.2 , 6 ) , M wCCU 6 ) 
3 tFAVvVs (6 ) ,CR (19 ) ,CeG (19 ) tCVAL (19 ) , ALPG( 19 ) , C BC (1 9 ) , A L PhU (1 9 ) , ALPF( 1 
49),ALPFZ(19),ALPFb(i9),LELTAd9),CL(19), YFERL(2 ,6 ) ,RYCCL 
5(.6),MAYY(6),CLALLM19),CLCELdS),CLAC2d9),CLALJid9),Fd9),ALPC(19) 
6 ,TCNY 09) 

CCRRCN KGR,KIR,KlLfkCL, VSA( 19) , S w (. 1 9 ) , V S ft AR , E Y E T L , C TS , X Pd , Y P B , J P , 
lIPRAe,ALPF8,KSTAL,lSrAL,KCLNr,Ad(.3) 

.CCFPCN NSLlP,VR(19),CA(19),ASd9),TL(.19),SVd9) » FLNC , YO , CUNAC , 
lALPFV ( It ) 

CCRPCN INNCi. , ISLI r ( 3) , A L PFA , R E Y^i , CL L , k E YCN , XN AX , ALM A X (1 9 ) ,CLMAX,C, 
lEPS,TRANS,REY,rTA,|-CPP,ZFERE,wFL-KE,ARKAY,Y,ocTA,TFAC, T K 1 X , T AL , M AXX 
2,PAZZ,PXCCL,NZCCL,ASPEC , T AP b R , ri F , K E Y:\U , U I SC K , P I Ek , CR d , 0 , T S T AX , EDGE 
3,SIC,ALPFR,NFLAP,\LVL,rjP,IV,lZ,lR,lP,ISlS,I SI AR , A , B , H , T AL T , TAUR , 
4TU :ST,R,bwX rYFf-.;h tPVCCL , f a Y Y , r L a , T lN Y , T I S A , a , Z , C P , ACC , Xh £ R E , 
SMVnCCL ,CAMj (19 ) ,CAMOk ,CANb f , uLr Y 1 , DUi^ Y2 , N A r t ( 2 5 ) , AHEKE( 2,6) , 

6MAAA(.fJ ,,VACCL (6) ,LFERfc( 2,6 ) ,NAdb (6) ,f-MCfjL(6 ) ,CHERb(2,d) ,KACC(6) , 
7MCCCL(6),CFERE(2,6) ACC(-6) , ^ DCCL ( 6 ) , S T0\ Y ( 19) , SCENE (19) ,CVAL, 
8ALPFL,CHC ,CKG ,DELTA,ALPFZ,ALPF, ALPFE,CLACL,CLDeL,CLAD2,CLADl , 

9F, IR1,FF,LCCER 
;0 DC 6C K=1,NP 
AK = K 

ALPG (K )=ALPFB + ALPFR + EPS ( K ) + ALPF6*T F AC* C T R AN S (-K ) - 1 . ) 

IF(K-ISTAK) 4C,4C,3C 
3C IF(K-IRI+ISTAR J 5C,4C,4C 

FIND CL FRCM FLAPS-LP DATA FOR UNFLAPPEC SPAN STATIONS 

40 ALT»FA=ALPG(K) 

X:LL = 999. 

REYN=RbYCK) 

TALX^TAUK) 


188 



RtYCN=-999. 

CALL CAGET(ARRAY,1, lY) 

call arc < array tlAUX,KAXX,KXCCLflEfWHEKEfNLVU 
CVALtK)=CLL 
GC TC 6C 
C 

C FIND CL FRCM FLAP DATA FOR UNFLAPPEC SPAN STATIONS 

C 

50 ALPFAaALPGCK) 

CL1»999. 

RtYN*REYCK) 

TAtXsTALCK) 

REYCN*999* 

CAIL CAGET( ARRAYfA, IW) 

CAIL ARC( ARRAY, TALX,KAUW,PWCCLf lEfXHEREf NLVL) 

CVAL(K)=CLL 

6C CBG(K)=CVAL(K )*CASPEC/( ASPEC + 1.8) )*C(.K)*CRB*(.0.5+C1.->TAPER)*SIN(AK 
l*PIER)/(3.1^159»C(K) )) 


C 

C CFECK FCK CtPP 

C 

CALL CATSN(3, JUNK) 

GC TC (70, 81), JUNK 
70 WRITEUP, MC) 

call AAA(TRANS,NP) 

WRITE( IP,‘6CC) 

CALL ZZZ(TFAC) 

WRITEC IP,62C) 

CAIL AAA(ALfG,NP) 

WKITE( IP,63C) 

CALL AAA(CeGfNP) 

81 ITR=C 

IF{NS.LIP-1) 135,80,80 

135 DC 136 K^1,NP 

136 TCNY(.K)=0*C 

80 CLSTA = C6G( I ST AR ) » BWX/ ( C H ST AR ) •CKB ) 

C 

C CFECK FCR DUKP 

C 


CALL CATSW(3,JUNK) 

GC TC (90, ICC), JUNK 
90 WR ITE ( IP,6AC ) 

CALL Z22(CLSTA) 

C 

C LCGK UP ZERC LIFT ANCLES AT FLAP ENC-FLAPSICE 

C 

100 IFdlR.NE.C) GC TC 12C 
CAIL LAGETC.ARRAY, A, U ) 

ALPFA=999. 

CLL=C. 

RFYN = RCY( ISTAR ) 

TAUX = TAL( ISTAR ) 

RCYCN=999* 

CALL ARC( ARRAY, TALX, MAW h,RWCCL, IE, XFERE,NLVL) 
A3-ALPFA 

CALL CATSW( 3, JUNK ) 

GC TC (lie, 120, JUNK 
110 WRITE( IF,'65C) 

CALL ZZZ(A3) 

.120 AA=^ALPFZ( ISTAR ) 

CLSTU=CLSTA/FF 
CALL CATSv^(3,JUNK) 

GC TC (13C,1AC), JUNK 
130 WRITE( IP, 660 
GALL ZZZ(CLSTL) 

WRITE! IP, 670 
CALL ZZZ(AA) 

lAU CALL CAGEK ARRAY,A, IW) 

ALPPA-999. 

CLL=CLSTU 
REYN = REY( ISTAR ) 

TAUX = TAU( ISTAR ) 

RFYCN=999. 


CALL ARC( ARRAY, TAUX, MAW WfMWCCL, IE, XHERE,NLVL) 
ALPFX=ALPFA 

AL=ECGE*FF* ( ALPFX-A3)+A3 
CALL CATSW( 3, JUNK ) 

GC TC (.15f:,16C>, JUNK 
150 WRITE( IP,68C) 

CALL ZZZ(Al) 
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160 CLSTL»CLSTA/F(ISTAR> 


C 

C LCGK tP ALPHA CUbE 1 

C 

CALL CAGEK ARRAY* If IVI 
ALPHA3?99, 

CLL=C1STU 
REYN=REY( ISTAR) 

TALX=TAL( ISTAR) 

REYCN*999. 

CAIL A9C( ARRAY, TALXtPAXX*PXCCL*lE*kl-ERE*NLVL) 

ALPHX = ALP»-A 

A2=EnGE«F{ ISTAR )*(ALPHX-AA)+AA 
CALL CATShl Tf JUNK ) 

GC rciiTo.iec), jukk 

ITO WRI fE( IP,69C) . , 

CALL 27Z(A2) 

180 SCELT=A2-A1 

^F(^SL1P.EC.0) GC TO 18C2 
CCLIFT=C. 

UC ICCl K = 1,N'P 
SV(K)=C.O 

1801 CrLIFT=CUG(K)«ETA(K)+CCLIFT 
CCL iFT=ASPtC»8KX««2*CCLlFT 
V«=CCLIFT»FLNC/(9.87*ASPEC) 

ALFFK=(ALPFe+tVETL)/57,293 
ASbAR=ATAi\( (SIN(ALFPR)+Vk)/VSBAR)-ALFPR 
CALL C4TSk(3*JLKK) 

GC Tf (57, 51), JUNK 
57 WRITEUP, ICC9) 

1009 FCRRATl 10X,2KVW) 

CALL ZZZ(VW) 

WRITfcUP, ICIC) 
lOlC FCRAAUIOX.SFALFPR) 

CALL ZZZ(ALFPR) 

WRIlEl IP. lCll) 

ICll FCRRAU 1C/.5FASBAR) 

CALL ZZ/(AS8AR) 

1 IF( ITR.NE.C) GC TC 519 

DC 1C3 K=i,NP 
ALPG(K)=ALPC(K)+TL(K) 

ALFF/(K)=ALFFZ(K)+CA(K) 

1C3 ALFI-E(K)=ALPG(K)-ALPFZ(K) 

519 DC 1C7 K^KLR.KIK 
AS ( K )-=ASUAR 

VP(K ) = VSA(K )/CCS(ALFPR*ASBAR) 

AI\G = AS(K)+ALPFE(K)/57.293 
SYA=SIK(AKG) 

CCZ=CCS( ANG ) 

107 SV(K )=VR(K)«SYN + VR(K)»SwLK)*CCZ-SIN( ALPH£(K)/57.293) 

DC ICE K*KIL,KCL 

AS(K ) = ASBAR 

VR (K )=VSA(K )/CCS(ALrPK + AS6AR) 

AAG=AS(K)-.«LPF£(K)/ 57.293 
SYN = S1MANG) 

CCZ=CCS(AKG) 

108 SV(K)=VR(K)«SYN+VR(K)*SWtK)*CCZ-SIN(ALPH£(K)/57.293) 

C/alL LAfStr. (3,JL’NK) 

GC Tr.(52,53 ),JL!NK 

52 WP1IEUP,1C71) 

1071 FCRRAK 10X,2FSV) 

CALL AAA(SV,AP) 

WPITF(IP,1C72) 

1072 FCRRAl ( 1CX,2FVR) 

CALL AAA(VR,NP) 

53 ANG=A£( ISTAR )+(ALPG( ISTAR )-A3)/57. 293 
SYA = S IN ( ANG ) 

CC2=CCS(ANG) 

SV5RN = VSA( I star) *SYN+VRt ISTAR )*SW (I STAR) *COZ-SlNtANG-ASI ISTAR)) 

0FLVR=SVSRN-SV( ISTAK) 

KSTAR=IRI-ISTAR 

SVSLP = VSA(KSTAR)*SYN + VR(KSTAR)*SW(KSTAR)*C0Z-SIMAb6-ASIKSTAR) ) 
OHLVL = SVSLP-SV(.KSTAR) 

KEG IN=1STAR+1 
KtM.=KSTAK-l 
DC 17CC K = l<eGIN,KENO 
17CC SV(K)=SV(K)-CELVR 
KBGIN=KST Ak+l 
DC 171C K=KBGIN,NP 
1710 SV(K)=SV(K)-LELVR+CELVL 
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CC 126 K«1,^P 
AK«K 

SLP1*C.C 

DC 121 N>1«AP 

AN-N 

Sti''2*C.C 

CC 122 P*1,NP 

APaP 

122 SUP2=SUP2+SV(P)»SIN<AP«PIEft)*SINJAN*AH»PlER| 

121 SI:P1*SLP1 + SLP2»SIN( Ai\»AK*P!ER)/AM 

.126 TCNV IK)=VR(K )»<A,*SUPl/R-»CELVR*STONYU)-DELVL*SGENE(KI 1 
lbC2 DC 2A0 K=1,NP 
SIG=C. 

DC 19C P*1»RP 

190 SIG*lCOG<P)-TCNY(P) )*eETA(P,K)+SIG 

ALPH.CK ) = SIG*(l. + TFAC«(TRANS<K|-l. J > 
ALPH.K)=ALPG(K)-ALPHL(K) 

ALPCtKJ»SCeLT«PCPP(K) 

ALPh<.K)=ALPMK)-ALPCU) 

RtYN=REY(K) 

TALX=TAL<K) 

REYCN=999. 

IF(K-ISTAft) 22Ct22C,2CC 
200 IF(K-IRI+ISTAR) 21C,22C»22C 
21C CALL DAGErC ARKAYf A, IZ) 

ALPN=(ALPP(K)-ALPI-Z(K)*U.-F(K)*eDGE) )/tECCE*FtKn 
CL1*959. 

ALPHA*ALPN 

CALL ARC( ARRAY, TAUX,PAKW,PRCCLf lEtXHERE.NLVL) 
CVAL(.K)=CLL*F(K) 

GC TC 230 

220 CALL CAGET( ARRAY, 1, lY) 

ALPN=(ALPMK)-ALPF2(K)*H.-F(K>*EDGFn/tECGE*F<Kn 
ALPFA=ALPN 
CL1=999. 

CAIL ARC! ARRAY,TAUX,PAXX,PXCCL,IE,hHERE,NLVLI 
CVAL(K)=CLL»F(K) 

230 CeC(K)=CVAL(K)»C(K)*CR8/ewX 
2A0 DEi.TA(K)*CUC(K»-CUGtK) 

CALL CATShO, JLIKK» 

GC TC (2^0,260, JUNK 
250 WR1TE( IP,72C) 

CAIL AAA( ALFFLfNP) 

KRITF( IP,7CC) 

CAIL AAA(ALPF,NP) 

WRITE( IP,71C) 

CALL AAA(ALPC.NP) 

KRITCUP,73C) 

CALL AAA(CVAL,NP) 

WRITb( 1P,7<.C) 

CALL AAA(CELTA,NP) 

260 DC 2fiC K=l,NP 

IF< ABS(CELTA(|<) )-CISCR) 270,270,290 
270 IF(K-KP) 280,360,360 
280 CCNTIKLE 
290 CC 31C 1=1, NP 
SLP=C. 

DC 3CC J=l,NP 

300 SLP=TRIXC 1 , J)«DELTA( JJ+SLP 
310 CBGU ) = CoG( I )+SUP 
CALL CATSr.( 3,JUNK) 

GC TC (32C,33C), JUNK 
320 WRITEUP, 630 

CALL AAA(CaG.NP) 

330 ITR=ITP+1 

IF(nR-30) eC,8C,3A0 

NCN CCNVERGENCE DUPP 

340 WRITE! IP,750) 

WRITE! IP,740 
CALL AAA!CELTA,NP) 

WRITE! IP,73C) 

CALL AAA!CVAL,NP) 

DC 35C J=1,NLVL 
NH=PAXX( J» 

NC^PXCCL! J) 

TAtX=hFEREt2, J) 

WRITE! IP,76C) J,J,NR,NC,TAUX 
CC 35C K=I,NR 
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350 M!^ITE(IP,77C) ( ARRAY ( J t K ,L ) f L«ltNCI 

call exit 

360 DC 38C K=1,NP 

IF( ALPKK)-AL^AX(K) ) 38Ct37C#370 
370 V.RITE(IP,7eC) X.ALPMK) .ALPAXIK) 

KSTAL*1 

380 jCCNTIMjE 

WRITE(IP,39Cl) 

3901 FCRPAK 10X,22'SPANV*ISE STAT ICNS»2Y/al 
CALL AAi<Y,KP) 

CALL CATSkiOtJUNK) 

GC TC (39C, ACC) .JUNK 
390 «ISITE(IP,79C) 

call AAACCLt'AX.NP) 

AOO h«IT£(IP,8CC) 

CALL AAA(CVAL.NP) 

800 FCBI-AK 10X,A3FC1STR1BUTICN CF SECTION LIFT COEFFICIENT-CU 
IF(NSLIP.eC.C) CTS*0.C 

DC ecl K=1,NP 

801 CL(K)iCVAL(K)«Ll.-CTS) 

V<RITE( IPt3eCl) 

CALL AAA(CL»NP) 

3801 FCRPATIIOX.AAFCISTRIBUTICN CF SECTION LIFT COEFFICIENT-CLS) 

scyi=c.c 

DC 9CC 1 = 1, i\P 

900 SL|V1=.CHC( I )«£TA( I )+SUPl 
C = ASPCC«fiV.X**2 
CLIFT=C«SLyl 
CLFP=CLIFT#(1.-CTS) 

WSITF( IP,'3AC1) 

3AC1 FCRNAI ( IX,AC(3F./. )/lFC/) 

WRITL(IP,3A1> ALPFC, CLIFT, CLPP 

3A1 FCRNATl lOX, 35FFLSfcLAGE ANGLE CF ATTACK , DEGREES. .» ,F9. 5 
l/lC)^t35l"LIFT CCbFF ICIfcNT fCL***«« •••••••• 

2/lCX»35l-LiFT CCEFFICIcKT,CLi> *,F9.5» 

wRrrE(iP,3/^ci) 

IF( tKSTAL.tC.C).ANC.(KCUM.tC.C) ) GO TO 2501 
C 

c cefikf exact stall angle of attack 

1F( (IPRAB.FG.1).CR*(KCUM.EC.3>) GC TO 9SC0 
KCtNT=KCUNT+l 

GC TC (1000t2CCC,3C00) tKCLNT 
ICOC Ae ( l):=:tALPFe + ALPhV( IPRAa^l) )/2. 

ALPFB = AH( 1) 

GC TC 990C 

20CC FF(KSTAL.EC.O) GC TO 21CC 
ISfAL^l 

Aa(2)=:(Ae( I )+ALPHV( IPRAB^I) 1/2. 

ALFFD^ABt 2) 

GC TC 990C 
21CC ISTAL^C 

ALM2)^( AB(1 > +ALPHVnPHAB) )/2. 

ALPFB^AC(2) 

GC TC 990: 

30CC IF(KSTAL+ ISTAL-1 ) 3 IOC » 32CC , 33C0 
31CC AB( 3) = ( AH(2 )+ALPHV( IPRABH/Z. 

ALPFe=AE(3) 

GC TC q90C 

320C AB(3)=(A9(2I+AB(I) )/2. 

ALPFB = AE< 3) 

GC TC S90C 

33CC AP ( 3)=( AB(2)+ALPFV( IPRAB^l) )/2. 

ALFFB=AB( 3) 

990C KSTAL=C 

DC 17C1 K=^1,NP 
1701 CL(K)=CLMAX(K)-CVAUK) 
l^RITCnP,35Cl) 

35C1 FCRNAT( 10X,25hSTALL PARGIN CISTRI60TI0N /IX) 

.call AAA(CL.NP) 

IF((IPRAH.EC.n.CR.(KCUNT.EC.3)) GO TO 171 
’^RlTr( lPf37Cl) ^A^/E 
WRITE(IP,3cCil ALPFB 
3701 FCRNATMHl/ 1 hC/ 3 5X , 25 A2 / IX ) 

3601 FCRPAT(lX,AC(3F./.)/lX/lCX,2eFAOJUSrEO ANGLE OF ATTACK TCt 

lF8.3,32Ff'SFARCFING FCR EXACT ST ALLPC INT , / lx/ IX/ , AO ( 3H . / . 1/ IX) 
IR^ICC 
GC TC 3C30 
2501 IR=C 

RETCRN 
171 IR^lCl 
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60C FCRrArtlCXtUHTf-ICKNcSS I^ACTCIO 
elO FCRRATUOXt 13»-K CU BAR / Ct I 
67C rCRFATI lOX.AFALPGI 
«>3J FtRFAr{lCX,3HCbCI 
6AC FCRRATUOX.SFCLSrAI 
650 FCRFAT(10X,2FA3) 

66C FCRFATdOXtSFCLSTUI 
670 FCilFAT(10Xt2FAA) 

6t0 FCRFAT(10X«2hAl) 

69C FCRFATIlCXf2FA2) 

7CC FCRRATC10X,AFALFH> 

710 FCRRAniOXtAFAtPC) 

720 FCRRATC 10X,5FALPFUI 
73C FCRFATIlOXfAFCVALI 
7A0 FCRRAH lOX,5»-CcLTAl 

75C FCRRAT(lXt42hLNAaLE TC CCKVEKGE AFTER 30 ITEKATICNS ABCRTEC) 
760 FCRRAm>*C/lFC.7h ARRAY t » 1 1 1 llF I, 1 > TO ( 1 1 It IH* « I2> 1H» » 12, IH) 
1 LC • 5 / ) 

77C FCPRAT(12FIC.AI 

780 FCRFA.T(ICX,15F5TALL£C AT STATICN ,12tl8H ANGLE CF ATTACK «,F7.3 
IICX,21FS6CT1CN STALL ANCie «,F7.3I 
790 FCRFATUOX,SI-CI.KAXI 
EKC 


,F 

t 
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